let
filter_of_string s = filter_of_lexbuf (
Lexing
.from_string s)