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

9 lines
87 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let
fun inf_loop () = (
print "SPAM\n";
inf_loop ()
)
in
inf_loop ()
end