sig val pp : 'a CCFormat.printer -> 'a t CCFormat.printer val to_string : 'a CCFormat.printer -> 'a t -> string end