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