my $flg = (@ARGV && @ARGV[0] =~ /-u/)? -1 : 1;
vec($x, $_ - 1, 8) += $flg * $_ for 1..length($x);