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