import Network.CGI (runCGI, getInputs, output)

main :: IO ()
main =
   runCGI $
      do allInputs <- getInputs
         output $ "Showing all inputs\n"
                ++ show allInputs
                ++ "\nDone.\n"