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