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