import Data.Sequence
import Data.Foldable
 
data Parity = Odd | Even
 
(|>>) :: String -> Seq Char -> Seq Char
(|>>) xs sq = foldr (|>) sq xs
 
(<<|) :: Seq Char -> String -> Seq Char
(<<|) sq xs = foldl (<|) sq xs
 
solve :: Parity -> [String] -> Seq Char
solve _ [] = empty
solve Odd (xs:xss) = xs |>> (solve Even xss)
solve Even (xs:xss) = (solve Odd xss) <<| xs
 
main :: IO ()
main = do
  n <- readLn
  xss <- words <$> getLine
  putSeq $ if odd n then solve Odd xss 
                                 else solve Even xss
 
putSeq :: Seq Char -> IO ()
putSeq = mapM_ putChar