Implement catesian product in 4clojure.com.