$x<=>0 ;# sgn($x)