{-
   Output the same string as the input.
 -}

module Main where

{-
   interact :: (String -> String) -> IO ()
   id       :: a -> a                      ; polymorphic identity function
 -}

main :: IO()
main = interact id

--   ------------For GNU Emacs ------------
--  Local Variables:
--  compile-command: "ghc -Wall main1.hs"
--  End: