**TI92P*main.6&G/+p}4.. V%G/ RdelayZU(xpr,constr) Func delay(xpr,constr) evaluates xpr and then imposes constraint Copyright Bhuvanesh Bhatt December 1999 if gettype(constr)"EXPR" and gettype(constr)"LIST":return "Error: argument" if gettype(constr)="EXPR" return xpr|constr local i,tmp:1i:while idim(constr):constr[i]tmp:xpr|tmpxpr:i+1i:endwhile:xpr EndFuncz