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