let
read_from_channel ch =
Parser
.commands
Lexer
.token (
Lexing
.from_channel ch)