splitBySign [] = ([], [])
splitBySign [x] = ([x], [])
splitBySign (x:y:xs) = (x, y) :+ splitBySign xs

(:+) (x, y) (xs, ys) = (x:xs, y:ys)
 
solve n as
  | odd n = concat $ reverse $ map reverse xs ++ concat ys
  | otherwise = concat $ reverse $ map reverse ys ++ concat xs
  where (xs, ys) = splitBySign as
 
main = do
  n <- readLn
  as <- words <$> getLine
  print $ solve n as