define a "modulo paulo romulo incredulo paolo"
define c ".ulo"

define e [regexp $c $a]

echo [length $e]

foreach g $e {
 foreach f $g {
     echo $f
 }
}