rlm@0: (ns coderloop.shazoooooooo)
rlm@0: (use 'coderloop.utils)
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: (defn shazzooom [n]
rlm@0:   (dorun 
rlm@0:    (map #(cond (and (= 0 (rem % 3)) (= 0 (rem % 7)))
rlm@0: 	       (print"Shazoo!\n")
rlm@0: 	       (= 0 (rem % 3))
rlm@0: 	       (print "Moo\n")
rlm@0: 	       (= 0 (rem % 7))
rlm@0: 	       (print "Muu\n"))
rlm@0: 	(range 1 (inc n)))))
rlm@0: 
rlm@0: 
rlm@0: (if *command-line-args*
rlm@0:    (shazzooom (read-integer (first *command-line-args*))))