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