let replace t k v = match Table.find t.table k with | None -> `No_such_key | Some elt -> (Elt.value elt).value <- v; `Ok