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