000001| let inf = (*[2]*)ref 0
000002| let sup = (*[2]*)ref 3
000003|
000004| let args = [
000005| (*[2]*)("-inf", (Arg.Set_int inf), "inferior bound") ;
000006| ("-sup", (Arg.Set_int sup), "superior bound")
000007| ]
000008|
000009| let kind = function
000010| | x when (*[9]*)x > 9 || (*[7]*)x < 0 -> (*[2]*)print_endline "not a digit"
000011| | _ -> (*[7]*)print_endline "digit"
000012|
000013| let print x =
000014| (*[9]*)print_int x;
000015| (*[9]*)print_newline ()
000016|
000017| let () =
000018| (*[2]*)Arg.parse args ignore "report test";
000019| (*[2]*)for i = !inf to !sup do
000020| (*[9]*)kind i;
000021| (*[9]*)print i
000022| done