sig
  type t =
      [ `Cc
      | `Cf
      | `Cn
      | `Co
      | `Cs
      | `Ll
      | `Lm
      | `Lo
      | `Lt
      | `Lu
      | `Mc
      | `Me
      | `Mn
      | `Nd
      | `Nl
      | `No
      | `Pc
      | `Pd
      | `Pe
      | `Pf
      | `Pi
      | `Po
      | `Ps
      | `Sc
      | `Sk
      | `Sm
      | `So
      | `Zl
      | `Zp
      | `Zs ]
  val compare : Uucp.Gc.t -> Uucp.Gc.t -> int
  val pp : Format.formatter -> Uucp.Gc.t -> unit
  val general_category : Uucp.uchar -> Uucp.Gc.t
end