import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Data.List
import Data.Array.ST
import Data.Array (elems)
import Data.Maybe (fromJust)
import Debug.Trace


recover :: String -> String -> Int -> String
recover [] [] _ = ""
recover [a] [] _ = [a]
recover [] [b] _ = [b]
recover (a:as) (b:bs) index
    | (index `mod` 2) == 0 = a:(recover as (b:bs) (index + 1))
    | otherwise = b:(recover (a:as) bs (index + 1))


solve :: String -> String -> String
solve a b = recover a b 0


main :: IO ()
main = do
    a <- getLine
    b <- getLine
    putStrLn $ solve a b

