main = do
    getLine
    [str1, str2] <- words <$> getLine
    putStrLn $ analyze str1 str2
    
analyze :: String -> String -> String
analyze [] _ = []
analyze str1 str2 = (head str1):(analyze str2 (tail str1))