($n,$s,$w,@a)=`dd`=~/\d+/g;$w=splice@a,$w,1;$\=1;map{$i++while$i<@a&($s*250/(4+@a-$i)|0)-$s*50<=$w-$_;$\*=($i-$j)/(@a-$j++)}sort{$b-$a}@a;print