print 1/($N=pop)*grep{keys%{{map{int
rand 10}1..$ARGV[0]*2}}>9}1..$N

##</code><code>##

$#a=2*pop;print 1/($N=pop)*grep{keys%{{map{int
rand 10}@a}}>9}1..$N