%%HP: T(1)A(R)F(.);
 CLEAR
"Using DUP
Enter a number"
"" INPUT OBJ  A
   'A^5' NUM "X1"
TAG DUP -1 * "-X1"
TAG DUP -10 *
"10*X1" TAG
  

