let from_channel ic =
  parse_from_lexbuf (Lexing.from_channel ic)