paip code in clojure