let
dequeue_exn t =
match
dequeue t
with
|
None
->
raise
Dequeue_empty
|
Some
v
->
v