%%HP: T(3)A(R)F(.);
\<<
  IF DEPTH 2. <
  THEN 1. 99.
  END
  2. \->LIST \-> li
  \<<
    VARS 1.
    \<<
      IF DUP \->STR "AGM" POS 2. ==
      THEN li +
      ELSE DROP
      END
    \>> DOLIST
  \>>
  1.
  \<< OBJ\-> DROP PICK3 UNROT 'CYCLE0' TEVAL NIP SWAP \->TAG \>>
  DOLIST OBJ\-> DROP
\>>