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