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

9 lines
87 B
OCaml
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
let
fun inf_loop () = (
print "SPAM\n";
inf_loop ()
)
in
inf_loop ()
end