<>;@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