main :: IO()
main = do
    strO <- getLine
    strE <- getLine
    putStrLn $ fukugou strO strE


fukugou :: String -> String -> String
fukugou strO [] = strO
fukugou strO strE = (head strO):(head strE):(fukugou (tail strO) (tail strE))
