function sign,a,b
;if b ge 0 then return,abs(a) else return,-abs(a)
return,abs(a)*b/abs(b)
end