let
of_character c = make 1 c