Evaluated proc ansi {which} {set dildos [array names ::ascii_local]; if {[lsearch $dildos $which] > -1} {. $::ascii_local($which)} else {. none found}}