sig
  type t =
      [ `Adlm
      | `Aghb
      | `Ahom
      | `Arab
      | `Armi
      | `Armn
      | `Avst
      | `Bali
      | `Bamu
      | `Bass
      | `Batk
      | `Beng
      | `Bhks
      | `Bopo
      | `Brah
      | `Brai
      | `Bugi
      | `Buhd
      | `Cakm
      | `Cans
      | `Cari
      | `Cham
      | `Cher
      | `Copt
      | `Cprt
      | `Cyrl
      | `Deva
      | `Dsrt
      | `Dupl
      | `Egyp
      | `Elba
      | `Ethi
      | `Geor
      | `Glag
      | `Goth
      | `Gran
      | `Grek
      | `Gujr
      | `Guru
      | `Hang
      | `Hani
      | `Hano
      | `Hatr
      | `Hebr
      | `Hira
      | `Hluw
      | `Hmng
      | `Hrkt
      | `Hung
      | `Ital
      | `Java
      | `Kali
      | `Kana
      | `Khar
      | `Khmr
      | `Khoj
      | `Knda
      | `Kthi
      | `Lana
      | `Laoo
      | `Latn
      | `Lepc
      | `Limb
      | `Lina
      | `Linb
      | `Lisu
      | `Lyci
      | `Lydi
      | `Mahj
      | `Mand
      | `Mani
      | `Marc
      | `Mend
      | `Merc
      | `Mero
      | `Mlym
      | `Modi
      | `Mong
      | `Mroo
      | `Mtei
      | `Mult
      | `Mymr
      | `Narb
      | `Nbat
      | `Newa
      | `Nkoo
      | `Ogam
      | `Olck
      | `Orkh
      | `Orya
      | `Osge
      | `Osma
      | `Palm
      | `Pauc
      | `Perm
      | `Phag
      | `Phli
      | `Phlp
      | `Phnx
      | `Plrd
      | `Prti
      | `Qaai
      | `Rjng
      | `Runr
      | `Samr
      | `Sarb
      | `Saur
      | `Sgnw
      | `Shaw
      | `Shrd
      | `Sidd
      | `Sind
      | `Sinh
      | `Sora
      | `Sund
      | `Sylo
      | `Syrc
      | `Tagb
      | `Takr
      | `Tale
      | `Talu
      | `Taml
      | `Tang
      | `Tavt
      | `Telu
      | `Tfng
      | `Tglg
      | `Thaa
      | `Thai
      | `Tibt
      | `Tirh
      | `Ugar
      | `Vaii
      | `Wara
      | `Xpeo
      | `Xsux
      | `Yiii
      | `Zinh
      | `Zyyy
      | `Zzzz ]
  val compare : Uucp.Script.t -> Uucp.Script.t -> int
  val pp : Format.formatter -> Uucp.Script.t -> unit
  val script : Uucp.uchar -> Uucp.Script.t
  val script_extensions : Uucp.uchar -> Uucp.Script.t list
end