let find t ~f =
    Option.map (Doubly_linked.find t.queue ~f:(fun kv -> f kv.value))
      ~f:Key_value.value