let quad_bool_array_or (a1,a2,a3,a4) (b1,b2,b3,b4) = (bool_array_or a1 b1, bool_array_or a2 b2, bool_array_or a3 b3, bool_array_or a4 b4)