set identlerim { 
"bla"  
"blah"   
"aham"   
"falan"   
"filan"   
"cart"   
"curt"   
"ahanda"   
"amanin"   
"oy-oy"   
"yo-yo" 
}  

set ident [lindex $identlerim [rand [llength $identlerim]]]