%%HP: T(3);
@ by Kevin Jessup.
@ used by DSORT; see DSORT.DOC.
\<< DUP SIZE 1 - 1
  FOR j 1 j
    FOR k k GETI \-> n1
      \<< GETI \-> n2
        \<< DROP
          IF n1 \->STR n2 \->STR >
          THEN k n2 PUTI n1 PUT
          END
        \>>
      \>>
    NEXT -1
  STEP
\>>