Posted to tcl by kotrcka at Fri Dec 25 13:45:43 GMT 2020view pretty

foreach a [list  1 2 3 4 5 6 7 8 9] {
puts -nonewline $a
}