sig
  val find : BatMap.S.key -> 'BatMap.S.t -> 'a option
  val choose : 'BatMap.S.t -> (BatMap.S.key * 'a) option
  val any : 'BatMap.S.t -> (BatMap.S.key * 'a) option
end