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