module Main where

{-
   (.)      :: (a->b) -> (c->a) -> c -> b ;  function composition
   words    :: String->[String]      ; breaks a string into words at whitespace
   unlines  :: [String] -> String    ; puts a newline on every string
   interact :: (String -> String) -> IO ()
   map ; apply function to every item in sequence
 -}

main :: IO()
main = interact (unlines . map (show . readInt) . words)

-- Specialize 'read' from the Haskell prologue for integers.
-- Without the type information read won't know what type is desired.
readInt :: String -> Int
readInt = read

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