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