TRUNC
TRUNC(u1);
TRUNC(r.a);
TRUNC(v.a);
TRUNC(r.a);
TRUNC(r.a);
TRUNC(t);
TRUNC(xx.a);
TRUNC(xx.a);
TRUNC(d);
TRUNC(t.a); /* t ~= z + c */
TRUNC(t.a);
TRUNC(r.a); /* r = P/Q */
TRUNC(r.a);