($N,$K)=<>;
map{
	$-=0;
	$-+=4+rand 3for 1..$K;
	$-+=1+rand 6for$K+1..$N;
	$--=0|1+rand 6for 1..$N;
	$%+=!!$-;
}1..7e5;
print$%/7e5