Rewrite server with Haskell Snap (originally with Python Tornado)