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