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