Toy url shortner written with haskell / snap