let find_opt t k =
    match Table.find t.table k with
    | None -> None
    | Some elt -> Some (Elt.value elt).value