let print_class_enums = function | [] -> raise(Failure("Not even built in classes?")) | first::rest -> let first = first ^ " = 0" in commalines (List.map String.uppercase (first::rest)) 75