let
create () =
let
x = !current
in
current := succ x;
x