module Main where

import Control.Applicative
import Control.Monad
import Data.List
import qualified Data.ByteString.Char8 as B

readi b | Just (n, _) <- B.readInt b = n

slice :: Int -> [a] -> [a]
slice d xs = unfoldr f xs
  where
    f []     = Nothing
    f (y:ys) = Just (y, drop (d - 1) ys)

main :: IO ()
main = do
    n <- readLn :: IO Int
    as <- B.words <$> B.getLine :: IO [B.ByteString]

    let ods = slice 2 as
    let evs = slice 2 (tail as)

    let ans = if odd n
        then reverse ods ++ evs
        else reverse evs ++ ods

    B.putStrLn $ B.unwords ans