program spam
  implicit none
  do
    write(*,*) 'SPAM'
  end do
end program spam