Semaphore.Countingval make : int -> tmake n returns a new counting semaphore, with initial value n. The initial value n must be nonnegative.
val release : t -> unitrelease s increments the value of semaphore s. If other threads are waiting on s, one of them is restarted. If the current value of s is equal to max_int, the value of the semaphore is unchanged and a Sys_error exception is raised to signal overflow.
val acquire : t -> unitacquire s blocks the calling thread until the value of semaphore s is not zero, then atomically decrements the value of s and returns.
val try_acquire : t -> booltry_acquire s immediately returns false if the value of semaphore s is zero. Otherwise, the value of s is atomically decremented and try_acquire s returns true.