zipPath :: a -> b -> [a] -> [b] -> [(a, b)]
zipPath a b (x:xs) (y:ys) = (x,y) : zipPath a b xs ys
zipPath a _ [] ys = zip (repeat a) ys
zipPath _ b xs [] = zip xs (repeat b)

strip :: String -> String
strip l = if last l == ' ' then init l  else l

main :: IO ()
main = do
  o <- getLine
  e <- getLine
  let passwd = strip . concatMap (\(a, b) -> a : [b]) $ zipPath ' ' ' ' o e
  putStrLn passwd
