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