let touch s =
try close_out(open_out s) with Sys_error _ -> ()
;;
+
+let rec mk_list x = function
+ | 0 -> []
+ | n -> x :: mk_list x (n-1)
+;;
+
+let list_seq start stop =
+ let rec aux pos =
+ if pos = stop then []
+ else pos :: (aux (pos+1))
+ in
+ aux start
+;;
+