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

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

I am getting the answer as 1 I tried this :
set a "Amazon"
set b [split $a]
set c [llength $b]
puts "$c"