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