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