link shortener writen in haskell