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