let filter_of_channel c = filter_of_lexbuf (Lexing.from_channel c)