%%HP: T(3)A(D)F(.);
\<< CLLCD \-> T Y
  \<< T Y DOT LASTARG
ABS SWAP ABS * /
ACOS X STO X EVAL 1
DISP
"ANGLE BETWEEN 
VECTORS BY DOT        
PRODUCT"
2 DISP
"PRESS ANY KEY" 5
DISP
    DO
    UNTIL KEY
    END DROP
  \>> X EVAL { X }
PURGE
\>>
