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