method get_spec = Arg.Symbol (List.map fst enum, (fun s -> self#set (List.assoc s enum)))