%%HP: T(3)A(D)F(.);
@ by Larry Morton.
@ used by FRAD2.
\<< DUP 1
  IF ==
  THEN DROP 'D1' STO* 0
  ELSE DEPTH ROLLD 2 DUPN
    IF ==
    THEN 'B1' STO* DROP DEPTH ROLL 2 -
    ELSE 'D1' STO* DEPTH ROLL 1 -
    END
  END
\>>