let
filter_of_channel c = filter_of_lexbuf (
Lexing
.from_channel c)