Yesterday, nobody contributed anything.  :-(
The official answer is: floor(abs((abs(floor(-x)) + 1) * x))