%%HP: T(3)A(R)F(.);
\<<
  \<< 3. DUPN 3. \->LIST 1. \->LIST
  \>> \-> \->req
  \<< ML20CHK \->req EVAL \-> reql
    \<< ML20FAC
      IF DEPTH 4. <
      THEN ML20NOW
      ELSE 4. ROLLD
      END \->req EVAL 'reql' STO+ ML20FAC - ABS
      IF 20. FC?
      THEN reql 1.
        \<< OBJ\-> DROP ML20REQ
        \>> DOLIST OBJ\-> DROP ROT
      END
      IF 20. FC?
      THEN ML20LTX 8. GET \->TAG
      END
    \>>
  \>>
\>>