#!/usr/local/bin/tclsh8.6
set l [list a b foo "hello world"]
set m {a b foo2 {hello world}}
puts [llength $m]
puts $m