RosettaCodeData/Task/Loops-Infinite/Standard-ML/loops-infinite-1.ml

while true do
  print "SPAM\n";