SImple ad server, written with Haskell Warp framework