Evaluated proc asscii {} {set ok [rpick [array names ::ascii_vap0r]]; . $::ascii_vap0r($ok) }