let
proc_vars_int =
let
l = ref []
in
for
i = 1
to
max_proc
do
l := i :: !l
done
;
List
.rev !l