%%HP: T(1)A(R)F(.);
 CLEAR
"Vector and vector abs
Enter a b c"
"" INPUT OBJ  A
   A V3 "V" TAG
DUP ABS "ABS(V)"
TAG
  

