import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  o <- map (:[]) <$> getLine
  e <- (++[""]) . map (:[]) <$> getLine
  putStrLn $ concat $zipWith (++) o e