import Data.List.Split

solve as = iter as []
  where iter [] ys = ys
        iter (x:xs) ys = iter xs (x:(reverse(ys)))

main = do
  input <- getContents
  let (h:t:_) = splitOn "\n" input
      as = map (read::String -> Int) $ splitOn " " t
  putStrLn $ unwords $ map (show) $ solve as