Function: signum

Return 1 if X is positive, -1 if negative, 0 if zero.

(fn X)