function sign,x sgn = [-1,0,1] return, sgn[1+ (x ge 0) - (x le 0)] end