%%HP: T(3)A(D)F(.);
@ INSORT by Joe Horn; inserts into a pre-sorted list in the right place.
@ 2: List of pre-sorted reals or strings; 1: real or string.
\<<
  SWAP OBJ\-> DUP 2 + ROLL OVER 6 + 5
    WHILE DUP2 - 1 >
    REPEAT DUP2 + 2 / CEIL DUP PICK 5 PICK
      IF >
      THEN SWAP DROP
      ELSE ROT DROP SWAP
      END
    END DROP 4 -
  ROLLD 1 + \->LIST
\>>
