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