%%HP: T(3)A(D)F(.);
\<<
  IF DUP TYPE 5 ==
  THEN OBJ\-> DROP
  END \-> i
  \<< ":" i \->STR OVER
+ + i
    IFERR RCL
    THEN DROP
    ELSE
      IF i VTYPE 2
==
      THEN 1 \->LIST
\->STR DUP SIZE 2 - 3
SWAP SUB
      ELSE \->STR
      END +
    END { -1 } i
\->STR SIZE 3 + + 2
\->LIST 'V' + INPUT
OBJ\-> DUP i STO
  \>>
\>>
