0while($g,$h)=???($a,$b)=<>=~/\d+/g:($h,$g%$h),$h;0while$_+=($y=2+$i*$g)**-$y*++$i,$g&&($i+=$a/$g&$b/$g&1)<9;print