let smake strategy n x = let res = { ar = empty_ar; vlix = n - 1; strategy = strategy } in res.ar <- Impl.make (Strategy.grow strategy n) x; res