module Tools:Useful sequential functionssig..end
val natmod : int -> int -> intval from_to : int -> int -> int listfrom_to n1 n2 = [n1;n1+1;...;n2]val filtermap : ('a -> bool) -> ('a -> 'b) -> 'a list -> 'b listfiltermap p f l applies f to each element of l which
satifies the predicate pval compose : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'bval id : 'a -> 'aval is_empty : 'a -> bool