import           Control.Monad
import           Control.Applicative

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

  putStrLn $ gen o e
  where gen o e = concatMap (\(a, b) -> a : [b]) $ zip o e