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

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