RosettaCodeData/Task/Loops-Infinite/Standard-ML/loops-infinite-2.ml
2023-07-01 13:44:08 -04:00

8 lines
87 B
Standard ML

let
fun inf_loop () = (
print "SPAM\n";
inf_loop ()
)
in
inf_loop ()
end