let fold_left f accu ({ ar = ar } as ra) = let res = ref accu in for i = 0 to ra.vlix do res := f !res (Impl.unsafe_get ar i) done; !res