sig val generate_tex : ?pdf:bool -> string -> string -> string -> (int * 'a) list -> unit val generate_tex_cairo : string -> string -> string -> string -> (int * 'a) list -> unit end