%%HP: T(3)A(R)F(.);
\<<
  \<< DUP SIZE 1. - 6. SWAP SUB
  \>>
  \<< ROT "'" + + OBJ\-> SWAP STO
  \>> \-> ext2str store2var
  \<< VARS 1.
    \<< \->STR
      IF DUP "CST." POS 2. ==
      THEN ext2str EVAL
      ELSE DROP
      END
    \>> DOLIST SORT
    IF DUP SIZE 0. >
    THEN DUP 'CST' RCL \->STR ext2str EVAL POS ML20LTX 9. GET UNROT
      IF CHOOSE
      THEN DUP 'CST' "'CST." store2var EVAL 1. MENU 'ML20LTX' "'ML20." store2var EVAL
      END
    ELSE DROP
    END
  \>>
\>>