INTERFACEFastLex ; 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.