10 WRITE(*,*) 'SPAM'
      GO TO 10
      END