program love_U
      character*20 name
      write(*,*)"What's your name? (chr<20)"
      read(*,*)name
      do i=1,100
       write(*,*)name,', I hove You!'
      end do
      end