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