%%HP: T(3)A(R)F(.);
\<< 1
  \<< DUP \->NUM ARG
    IF DUP \pi \->NUM -
AND
    THEN DROP
    END
  \>> DOSUBS
\>>