module Main where

import Control.Monad

main :: IO ()
main =
  do
    line <- getLine
    unless (null line) (putStrLn line >> main)