GLOBAL '(SCNVAL);
LISP PROCEDURE !%SCAN;
<<SCNVAL := CHANNELREADTOKEN IN!*;
  TOKTYPE!*>>;

PROCEDURE UNREADCH U;
 UNREADCHAR (ID2INT (U));

END;
