let
from_channel source = token_list
Scanner
.token (
Lexing
.from_channel source)