(* * this is a function that does * something exciting! *) fun interval m n = if n <= m then [] else m::(interval (m+1) n); fun interval2 m n = if n <= m then [] else (interval2 m (n-1)) @ [n-1];