solve :: String -> String -> String
solve [] [] = []
solve [] [e] = [e]
solve [o] [] = [o]
solve (o:os) (e:es) = o : e : solve os es

main :: IO ()
main = do
  o <- getLine
  e <- getLine
  putStrLn $ solve o e