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