let
of_character c = [c]