let
unique () =
BatConcurrent
.sync !lock
BatRef
.post_incr unique_value