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