Evaluated proc purple who {lappend ::retards $who; . $who is now [^C]6RETARDED[^C];}