let print_class_strings = function | [] -> raise(Failure("Not even built in classes?")) | classes -> commalines (List.map (fun k -> "\"" ^ k ^ "\"") classes) 75