let screate strategy n x = let res = screate_fresh strategy n in let res_ar = res.ar in let el = Some x in for i = 0 to n - 1 do Impl.unsafe_set res_ar i el done; res