p48 done in clojure