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