main :: IO ()
main = Network.Wai.Handler.SimpleServer.run 3000
     $ Network.Wai.Frontend.MonadCGI.cgiToAppGeneric
       monadToIO
       mainCGI
main :: IO ()
main = Network.Wai.Handler.SimpleServer.run 3000
     $ Network.Wai.Frontend.MonadCGI.cgiToAppGeneric
       monadToIO
       mainCGI
main = Network.Wai.Handler.SimpleServer.run 3000
     $ Network.Wai.Frontend.MonadCGI.cgiToAppGeneric
       monadToIO
       mainCGI