INTERFACE FastLex;

IMPORT Lex, Rd, Thread;

PROCEDURE Scan(
    rd: Rd.T; READONLY cs: SET OF CHAR := Lex.NonBlanks): TEXT
  RAISES {Rd.Failure, Thread.Alerted};

PROCEDURE Skip(
    rd: Rd.T; READONLY cs: SET OF CHAR := Lex.Blanks)
  RAISES {Rd.Failure, Thread.Alerted};

END FastLex.