sig   type 'a table   val create : (string * 'Kwmacro.func) list -> 'Kwmacro.Lookup.table   val lookup : 'Kwmacro.Lookup.table -> string -> 'Kwmacro.func end