main = do
  n <- readLn
  a <- (map read . words) <$> getLine
  putStrLn $ solve n a

solve:: Int -> [Int] -> String
solve n a = arStr $ solve' n a

solve':: Int -> [Int] -> [Int]
solve' n a
  | odd n = addL [] a
  | otherwise = addR [] a

addR:: [Int] -> [Int] -> [Int]
addR s [] = s
addR s (a:as) = addL (s ++ [a]) as

addL:: [Int] -> [Int] -> [Int]
addL s [] = s
addL s (a:as) = addR (a:s) as

arStr:: [Int] -> String
arStr a = unwords $ map show a