10万回だと
> k=1e5
> mean(replicate(k,sim()))
[1] 7.30537