main = do
  _ <- getLine
  getLine >>= solve . input

-- 入力
input :: String -> [Int]
input = map read . words

-- 解答
solve xs = putStrLn . unwords . map show . (reverse' []) $ xs

reverse' acc [] = acc
reverse' acc (x:xs) = reverse' (x:acc) xs


