Update p001.clj

Trimmed s function.