import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    _ <- getLine
    [a, b] <- words <$> getLine
    putStrLn $ solve a b

solve :: String -> String -> String
solve a b = concat (map (\(x,y) -> [x,y]) (zip a b))