let
iteri f ({ ar = ar }
as
ra) =
for
i = 0
to
ra.vlix
do
f i (unsafe_get_ar ar i)
done