simplified bit.ly written in Clojure