if a = "EOI" then raise Stream.Failure;
let pos = loc_func !tok_count in
print_endline (Printf.sprintf "%s '%s' (@ %d-%d)" a b
if a = "EOI" then raise Stream.Failure;
let pos = loc_func !tok_count in
print_endline (Printf.sprintf "%s '%s' (@ %d-%d)" a b