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