let create_from ra =
    {ar = creator (length ra); vlix = ra.vlix; strategy = ra.strategy}