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