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