import Data.Sequence
import Data.Foldable
 
main = do
  n <- readLn
  ass <- words <$> getLine
  putSeq $ solve (odd n) ass
 
solve _ [] = empty
solve True (xs:xss) = addr xs $ solve False xss
solve False (xs:xss) = addl xs $ solve True xss
 
addr [] sq = sq
addr (x:xs) sq = x |> addr xs sq
 
addl [] sq = sq
addl (x:xs) sq = x <| addl xs sq
 
putSeq sq = for_ sq putChar