include sig ... end
type value = [ | `disc |
| `circle |
| `square |
| `decimal |
| `decimal_leading_zero |
| `lower_roman |
| `upper_roman |
| `lower_greek |
| `lower_latin |
| `upper_latin |
| `armenian |
| `georgian |
| `lower_alpha |
| `upper_alpha |
| `none |
]
include sig ... end
val valueToJs : value -> stringval valueFromJs : string -> value option
type t = [ ]
val show : t -> string