implicit none
character(50) :: o,e
integer :: no, ne, io, ie

read *, o
read *, e

no = len_trim(o)
ne = len_trim(e)

io = 0
ie = 0
do while (io < no) 
   io = io + 1
   write(6,'(1a)',advance='no') o(io:io)

   if (ie < ne) then
      ie = ie + 1
      write(6,'(1a)',advance='no') e(ie:ie)
   endif
enddo

write(6,'(a)') ''
end
