interleave :: [Char] -> [Char] -> [Char]
interleave xs [] = xs
interleave [] ys = ys
interleave (x:xs) (y:ys) = [x]++[y]++(interleave xs ys)

main :: IO ()
main = do
    oddChars <- getLine
    evenChars <- getLine
    putStrLn (interleave oddChars evenChars)
