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