set len [llength "Apples Oranges"] ;# 2
set len [llength {Apples Oranges}] ;# 2
set fruit { apples oranges cherries bananas}
set len [llength $fruit]
puts stdout "($len) : $fruit"