let new_generator init =
      let counter = ref (init-1) in
      (fun () -> incr counter; !counter)