simplified bit.ly in Clojure