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)
      ++ if length o > length e then [last o] else ""