puts [set r1 [string first [lindex $v $j] $str]] ; # search for the vowel letter Eg. "a" from 0th index postion puts [set r2 [string last [lindex $v $j] $str ...