A Haskell Server using Snap framework