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