Evaluated proc tranny {{who {}}} {set who [name $who]; string toupper "$who is a tranny"}