($A,$B)=glob<>; $A>$B?$a:$b=1; { $a0=int($a/($a+$b)*100+.5); $b0=int($b/($a+$b)*100+.5); ++$a,redo if $a0<$A||$b0>$B; ++$b,redo if $a0>$A||$b0<$B; } print$a+$b