let iter f a = for i = 0 to a.length - 1 do f a.data.(i) done