let
from_channel ic =
parse_from_lexbuf (
Lexing
.from_channel ic)