let fold_left f a b = Array.fold_left f a (Array.sub b.data 0 b.length)