#!perl -l
$N=pop;for(1..$N){$g+=keys%{{map{int rand 10,0}1..$ARGV[0]}}>9}print$g/$N