RosettaCodeData/Task/Loops-Infinite/Standard-ML/loops-infinite-2.ml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
87 B
Standard ML

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