let from_string s =
  parse_from_lexbuf (Lexing.from_string s)