let filter_of_string s = filter_of_lexbuf (Lexing.from_string s)