mainCGI :: Network.CGI.CGIT (Reader String) Network.CGI.CGIResult
mainCGI = do
    s <- lift ask
    Network.CGI.output s
mainCGI :: Network.CGI.CGIT (Reader String) Network.CGI.CGIResult
mainCGI = do
    s <- lift ask
    Network.CGI.output s
mainCGI = do
    s <- lift ask
    Network.CGI.output s