<>;@d=sort{$b<=>$a}glob<>;($x,$y)=map abs,glob<>; if($x==0&&$y==0){ print 0; exit; } for(@d){ if($x==$_&&$y<=$_||$x<=$_&&$y==$_){ print 1; exit; } } $d=$d[0]; $z=$x>$y?$x:$y; $r=($z+$d-1)/$d|0; $r=2 if $r<2; print $r;