#define  ABS(%arg)                      $S(%arg<0:-%arg,1:%arg)
#define  MIN(%arg1,%arg2)               $S(%arg1<%arg2:%arg1,1:%arg2)
#define  MAX(%arg1,%arg2)               $S(%arg1>%arg2:%arg1,1:%arg2)
#define  TOH(%dt,%type)                         $ZDATETIMEH(%dt,%type)
#define  TOSECONDS(%Hdt)                $P(%Hdt,",")*3600*24+$P(%Hdt,",",2)
 
#define PI 3.14159