Example Haskell/Snap web application.