main = do
    str1 <- getLine
    str2 <- getLine
    putStrLn $ analyze str1 str2
    
analyze :: String -> String -> String
analyze [] _ = []
analyze str1 str2 = (head str1):(analyze str2 (tail str1))