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