program main

  implicit none

  !integer :: a,b
  character(100) :: s,t
  character(200) :: tmp
  integer :: lns,lnt

  read(*,*) s, t

  lns = len_trim( s )
  lnt = len_trim( t )
  s = trim( s )
  t = trim( t )


  !tmp = t(1:lnt+1)/s(1:lns+1)
  tmp = trim(t)//trim(s)

  print*, tmp


end program main