let parse_string s = parse (Lexing.from_string s)