NH.Exceptionless
val find : 'a t -> key -> 'a option
val modify : key -> ('a -> 'a) -> 'a t -> (unit, exn) BatPervasives.result