let
to_list t =
List
.map (
Doubly_linked
.to_list t.queue) ~f:
Key_value
.value