%%HP: T(3)A(R)F(.);
\<<
  IF DEPTH NOT
  THEN 1. 3999.
  END { } UNROT
  FOR y y DUP ROMAN ROMAN
    IF DUP ROT \=/
    THEN y SWAP R\->C +
    ELSE DROP
    END
  NEXT ZVONEK
\>>