Evaluated proc tranny {{who {}}} {set who [name $who]; string toupper "fuck $who; $who sux; $who is dying; $who is dead to me; $who hit  wtc; $who -> ovens"}