import Control.Monad

main :: IO ()
main = do
  getLine
  [s, t] <- words <$> getLine
  putStrLn $ solve s t

solve :: String -> String -> String
solve s t = join $ zipWith (\s t -> return s ++ return t) s t