clojure solution to p23 i think, but it takes way too long