Evaluated proc +quote {who args} {lappend ::quotes([string toupper $who]) [join $args " "]}