(*
Use like this:

for 0 to 3 fn x => (
  print (Int.toString x);
  print "\n"
);

*)

fun to (start, max) = if start >= max then
                          []
                      else
                          start :: to((start+1), max)

fun foreach list func = app func list

fun for start listop max func = foreach (listop (start, max)) func