How do I calculate number of letters in a word in Tcl

Question

I am getting the answer as 1 I tried this :

set a "Amazon"
set b [split $a]
set c [llength $b]
puts "$c"

Answer 1

set a "amazon"
set a [split "$a" ""]
puts [llength $a]

Answer 2

I believe you can use string length for that:

set a "Amazon"
set lengthOfA [string length $a]
puts "Length is: $lengthOfA"