let pop_with_key t = 
    try Some (pop_with_key_exn t)
    with Heap.Empty -> None