password :: String -> String -> String
password a b =
    let realA = a
        realB = b ++ (if length a > length b then "\0" else [])
    in foldl (++) "" $ zipWith (\ca cb -> [ca, cb]) realA realB

main = do
    odds <- getLine
    evens <- getLine
    putStrLn $ password odds evens
