perl -ne'chomp; $x=0+$_; print "x=$x, -x=",-$x,"\n";'