need tcl code for the above Take a character as an input and print whether it is an vowel or a consonant. Sample input and output are shown as below: in tcl