cap pro drop zrnd pro def zrnd args u quietly replace `u' = ((abs(`u')>10^(-20))*`u')+((1-(abs(`u')>10^(-20)))*10^(-20)*((2*(`u'>0))-1)) end