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