let keys t = (* Return the keys in the order of the queue. *) List.map (Doubly_linked.to_list t.queue) ~f:Key_value.key