let iter_reverse t ~f =     for i = length t -1 downto 0 do       f (S.get t i)     done