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