let sinit strategy n f = let res = screate_fresh strategy n in let res_ar = res.ar in for i = 0 to n - 1 do unsafe_set_ar res_ar i (f i) done; res