Simplified bit.ly written in Clojure