Evaluated proc quotes who { join [map $::quotes([string toupper $who]) {x {. <[string tolower $who]> $x}}] \n}