let resizer some_lix ra len = let ar = creator len in let old_ar = ra.ar in for i = 0 to some_lix do Impl.unsafe_set ar i (Impl.unsafe_get old_ar i) done; ra.ar <- ar