my @list = ( -4 .. 6 );
print map((1)x$_,@list) - map((1)x-$_,@list);