let to_json {name; input_type} =     `Assoc [       "name", `String name;       "input-type", `String (input_type_to_string input_type);     ]