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