Evaluated proc racro acro { set t [rpick [lindex $::acro_template [strlen $acro]]]; map [explode $acro] {x { set t [smap1 $t & $x] }}; flatten [acro [string tolower $t]] }