absstak
n = lookup(absstak(argp));
argp = absstak(argp);
assign(n, absstak(rel));
#define setstak(x) (staktop=absstak(x))