module Main where

import Control.Applicative
import Numeric

main :: IO()
main = do
  { _ <- getInts
  ; xs <- getInts
  ; putInts (reverse xs)
  }
--


getInts :: IO[Int]
getInts = map read . words <$> getLine

putInts :: [Int] -> IO()
putInts = putStrLn . unwords . map show

getDoubles :: IO[Double]
getDoubles = map read . words  <$> getLine

putDoubles :: [Double] -> IO()
putDoubles = putStrLn . unwords . map showDouble

showDouble :: Double -> String
showDouble d = showFFloat Nothing d ""

