sig
  type t = Struct.CommentFilter.Make(Token).t
  val mk : unit -> t
  val define : Token.Filter.t -> t -> unit
  val filter :
    t -> (Token.t * Token.Loc.t) Stream.t -> (Token.t * Token.Loc.t) Stream.t
  val take_list : t -> (string * Token.Loc.t) list
  val take_stream : t -> (string * Token.Loc.t) Stream.t
end