sig
  type token =
      GROUP
    | ITEM
    | EMPTY
    | STATE
    | DESC
    | BEFORE
    | EOF
    | String of string
    | Date of Tdl_date.t
    | State of Tdl_types.state
    | LPAR
    | RPAR
    | OR
    | AND
    | NOT
  val filter :
    (Lexing.lexbuf -> Tdl_filter_parser.token) ->
    Lexing.lexbuf -> Tdl_filter.filter
end