Begin #170 hard in Clojure

This is harder than it looks.
Begin #170 hard in Haskell

This is super hard in haskell, because it needs randomness, and thus IO,
which I have not learned yet.