-- First line goes last, last line goes first

module Main where

{-
   (.)      :: (a->b) -> (c->a) -> c -> b ;  function composition
   lines    :: String->[String]           ; breaks a string into lines at line separators
   unlines  :: [String] -> String         ; puts a newline on every string
   interact :: (String -> String) -> IO ()
 -}


main :: IO()
main = interact (unlines . reverse . lines)

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