sub gcd{my($u,$v)=@_;($u,$v)=($v,$u%$v)while$v;$u}

($a,$b)=map abs,glob<>;
if($a==0&&$b==0){
	print 1/4;
	exit;
}

$g=gcd($a,$b);
$o=$a/$g&$b/$g&1;
for($i=0;$i<10;++$i){
	for($j=0;$j<10;++$j){
		if($o?!(($i^$j)&1):1){
			$z+=(2+($i+$j)*$g)**-(2+($i+$j)*$g);
		}
	}
}
print $z;