Craig's solutions in clojure for defshef week 2