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