module Main where
--import Debug.Trace
import Data.List
import Data.Maybe
import Data.Ord
import Control.Monad

solve :: [Int] -> String
solve = iter [] where
    iter ac [] = tail ac
    iter ac (x:xs) = iter (' ': show x ++ ac) xs

readLine:: IO [Int]
readLine = fmap (map read . words) getLine

main :: IO() 
main = do
    [n] <- readLine
    l   <- readLine
    putStrLn (solve l)

