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