%%HP: T(1)A(R)F(.);

"Using SWAP 
Enter A B"
"" INPUT OBJ  A B
   A "A" TAG B
"B" TAG A
"swaped A" TAG B
"swaped B" TAG
SWAP
  

