Enumeration I/O

[Melanie Shatilla <hj791520@er.uqam.ca>]

Hi,

I'm in my second semester of Computer Science and I hope someone can
help me solve a very basic problem, for which I can't seem to find a
solution to in any of my textbooks :

I've declared an enumeration type with character literals, and a
variable of this type, for example :
    TYPE Symbols is ('%', '$', 'a');
    Symb : Symbols := '$';

    package Symbols_IO is new Text_IO.Enumeration_IO(Symbols);

When I give the instruction :
    Symbols_IO.Put(Symb);

...I get the right symbol but with the quotes (and I don't want them).
Obviously, I've thought of writing something like :

    If Symb = '$' then
        Text_IO.Put ('$');
    end if;

..but there must be a more convenient way, I hope! Any suggestions
anyone ?