Simple "min-length description" algorithm in Clojure.