sig   module type Definition =     sig       val comment_delimiters : (string * string) option       val line_comment_start : string option       val nested_comments : bool       val ident_start : (char, char, BatCharParser.position) BatParserCo.t       val ident_letter : (char, char, BatCharParser.position) BatParserCo.t       val op_start : (char, char, BatCharParser.position) BatParserCo.t       val op_letter : (char, char, BatCharParser.position) BatParserCo.t       val reserved_names : string list       val case_sensitive : bool     end   module Library : sig module OCaml : Definition module C : Definition end   module Make :     functor (M : Definition->       sig         val feed :           (char, BatCharParser.position) BatParserCo.Source.t ->           (BatGenlex.token, BatCharParser.position) BatParserCo.Source.t         val start : (char, unit, BatCharParser.position) BatParserCo.t         val ident : (char, string, BatCharParser.position) BatParserCo.t         val kwd : (char, string, BatCharParser.position) BatParserCo.t         val identifier :           string -> (char, unit, BatCharParser.position) BatParserCo.t         val keyword :           string -> (char, unit, BatCharParser.position) BatParserCo.t         val char_literal : (char, char, BatCharParser.position) BatParserCo.t         val string_literal :           (char, string, BatCharParser.position) BatParserCo.t         val integer : (char, int, BatCharParser.position) BatParserCo.t         val float : (char, float, BatCharParser.position) BatParserCo.t         val number :           (char, [ `Float of float | `Integer of int ],            BatCharParser.position)           BatParserCo.t         val char : char -> (char, char, BatCharParser.position) BatParserCo.t         val string :           string -> (char, string, BatCharParser.position) BatParserCo.t         val line_comment : (char, unit, BatCharParser.position) BatParserCo.t         val multiline_comment :           (char, unit, BatCharParser.position) BatParserCo.t         val comment : (char, unit, BatCharParser.position) BatParserCo.t         val whitespaces : (char, unit, BatCharParser.position) BatParserCo.t       end end