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