import qualified Data.ByteString.Char8 as BS

main = do
    getLine
    [s, t] <- map BS.unpack . BS.words <$> BS.getLine
    putStrLn $ solve s t
    
solve [] []  = []
solve (s : ss) (t : ts) = s : t : solve ss ts