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