let of_character c = [c]