sig
  val exists2 : ('a -> 'b -> bool) -> 'a array -> 'b array -> bool
  val for_alli : (int -> 'a -> bool) -> 'a array -> bool
  val all_somes : 'a option array -> 'a array option
end