let screate strategy n =
    let res = { ar = empty_ar; vlix = n - 1; strategy = strategy } in
    res.ar <- creator (Strategy.grow strategy n);
    res