perl -wle '$y=5; printf "%32b\n%32b\n", -$y, ~-$y;'