my ($x, $y) = glob<>;

my $kyori = $x**2 + $y**2;

$i++while (($i/2)**2 <= $kyori);
print$i,$/;