mergeStr :: String -> String -> String 
mergeStr [] [] = []
mergeStr x [] = x
mergeStr (x:xs) (y:ys) = x:y:mergeStr xs ys

main = do
  str1 <- getLine
  str2 <- getLine
  putStrLn $ mergeStr str1 str2
