let
from_string s =
parse_from_lexbuf (
Lexing
.from_string s)