let
parse_string s = parse (
Lexing
.from_string s)