import Data.Sequence
import Data.Foldable
 
data Parity = Odd | Even
 
(|>>) :: String -> Seq Char -> Seq Char
(|>>) [] sq = sq
(|>>) (x:xs) sq = x |> (xs |>> sq)
 
(<<|) :: Seq Char -> String -> Seq Char
(<<|) sq [] = sq
(<<|) sq (x:xs) = (sq <<| xs ) <| x
 
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