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