sig
  val new_ : unit -> Pango_cairo.font_map
  val get_default : unit -> Pango_cairo.font_map
  val create_context : Pango_cairo.font_map -> Pango.context
end