sig
  val nametoindex : string -> int
  val indextoname : int -> string
  val nameindex : unit -> (int * string) list
end