%%HP: T(1)A(R)F(.);

  
    IF DUP TYPE 5
==
    THEN 1 p
DOLIST OBJ PRG
    ELSE
      IF DUP TYPE
10 ==
      THEN SYS
      END
    END
    p
   1 p DOLIST
OBJ PRG
  

