solve [] b_h b_b = b_h ++ reverse b_b
solve (a:as) b_h b_b = solve as (a:b_b) b_h

main = do
  getLine
  s <- getLine
  let as = map (read::String -> Int) $ words s
  putStrLn $ unwords $ map (show) $ solve as [] []