(def %zerify
(fn [n] (cond ((= n 0) (puts "-- end --")) (true (puts n) (puts "--") (cond ((> n 10) (puts "not yet...")) (true (puts "almost there")) ) (%zerify (- n 1))))))
(def %fib
(fn [n] (cond ((= n 0) n) ((= n 1) n) (true (+ (%fib (- n 1)) (%fib (- n 2)))))))