IntMap.Exceptionless
val find : key -> 'a t -> 'a option
val choose : 'a t -> (key * 'a) option
val any : 'a t -> (key * 'a) option