{-
  String Mingling
  -mingling
-}

mingle :: String -> String -> String
mingle a b = concat $ zipWith (\x y -> x : [y]) a b

main :: IO ()
main = do
  a <- getLine
  b <- getLine
  putStrLn $ mingle a b


  String Mingling
  -mingling


mingle :: String -> String -> String
mingle a b = concat $ zipWith (\x y -> x : [y]) a b

main :: IO ()
main = do
  a <- getLine
  b <- getLine
  putStrLn $ mingle a b
