Solve the  'compress a sequence test' problem in 4clojure.com