let idMaker () start = let counter = ref start in fun () -> let ret = !counter in counter := !counter + 1; ret