sig
  val find :
    ('-> bool) ->
    ('a, [< `Read | `Write > `Read ]) BatArray.Cap.t -> 'a option
  val findi :
    ('-> bool) ->
    ('a, [< `Read | `Write > `Read ]) BatArray.Cap.t -> int option
end