let
to_array t =
Array
.map (
Doubly_linked
.to_array t.queue) ~f:
Key_value
.value