<>;@d=sort{$b-$a}<>=~/\d+/g;$x=abs(<>!~$"|abs($`)>abs($')?$`:$');print $x?((grep{$_ eq $x}@d)?1:int(abs($x-$d[0])/$d[0]+.9)+1):0