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