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