Playing around with Haskell + Snap