%%HP: T(3)A(D)F(.);
\<< CLLCD \-> T Y
  \<< T Y DOT LASTARG
SWAP DROP ABS / X
STO X EVAL 1 DISP
"COMPONENT VECTOR"
2 DISP
"HIT ANY KEY" 3
DISP
    DO
    UNTIL KEY
    END DROP
  \>> X EVAL { X }
PURGE
\>>
