#define UINT Int 
#define COMPAREUINT compare    
#define INCINT1(n) ((n) + 1) 
#define INCINT2(n) ((n) + 2) 
#define INCINT3(n) ((n) + 3) 
#define INCINT4(n) ((n) + 4) 
#define DECINT1(n) ((n) - 1) 
#define DECINT2(n) ((n) - 2) 
#define DECINT3(n) ((n) - 3) 
#define DECINT4(n) ((n) - 4) 
#define SUBINT(m,n) ((m)- (n)) 
#define ADDINT(m,n) ((m)+ (n)) 
#define L(n) n   
#define LEQ <= 
#define EQL == 
#define ASINT(n) (n)     
#define NEGATE(n) (0 - (n))
#define _MODULO_(n,m) (n  `mod`  m)
#define UBT2(y,z) (  y,z  )
#define UBT3(x,y,z) (  x,y,z  )
#define UBT4(w,x,y,z) (  w,x,y,z  )
#define UBT5(v,w,x,y,z) (  v,w,x,y,z  )
#define IS_NEG(n) (n  <  0)
#define LEFT_JUSTIFY_INT(m,n) (shiftL (m) (32-n))