let dequeue t =
    match dequeue_with_key t with
    | None -> None
    | Some (_, v) -> Some v