Evaluated proc lsomali {{n 10}} { set a [somali $n]; set b [translate en $a]; set out {}; for {set i 0} {i < $n} {incr i} { set x [lindex $a $i]; set y [lindex $b $i]; if {[strsame $x $y] == 1} { append out "'$x' means '$y'\n" } }; . $out }