sig val ( <|> ) : 'a Array.t -> int * int -> 'a Array.t end