$n = <>; $n = -$n; print "$n\n";