%%HP: T(3)A(D)F(.);
@ by Kevin Jessup
@ used by DSORT; see DSORT.DOC.
\<< { } \-> l t d n
  \<<
    IF l SIZE DUP
    THEN 1 SWAP
      FOR i 'l' i GET
        IF VTYPE t == d XOR
        THEN n 'l' i GET 1 \->LIST + 'n' STO
        END
      NEXT
    ELSE DROP
    END n
  \>>
\>>