use strict;
use warnings;

sub magnitude {
   my ($n, $p) = @_;
   $p ||= 16;   # Num of significant digits. 16 max for doubles
   return 0 + ( sprintf('%.*e', $p-1, $n) =~ /e(.*)/ )[0];
}

sub movement {
   my ($old, $new) = @_;
   my $m = magnitude($old);
   return 0 + sprintf '%.0f', ($new-$old) * 10**(4-$m);
}

printf("%+.0f\n", movement(@ARGV));