let of_character c = make 1 c