main' = do
  s <- getLine
  s' <- getLine
  mapM_ putStrLn $ gen s s'

gen :: [a] -> [a] -> [[a]]
gen s s' = zipWith (\a b -> fst b ++ snd a) (split' s) (split' s')
  where split' xs = [0..length xs] >>= \n -> return $ splitAt n xs