Пузырьковая сортировка на Tcl

Только что написал на Tcl сортироку пузырьком. Выглядит это следующим образом

set a {23 4 3 7 6 10}
puts $a
for { set i 0 } { $i < [llength $a] } { incr i } {
      for { set j $i } { $j < [llength $a] } { incr j } {
            if { [lindex $a $i] > [lindex $a $j]} {
            set tmp [lindex $a $i]
            lset a $i [lindex $a $j]
            lset a $j $tmp
           }
     }
}
puts $a

Естественно того же эффекта можно добиться одной строчкой с
использованием средств языка.

set a [lsort -integer $a]

Просто хотелось написать на этом языке что-нибудь простое. Хотя конечно Tcl предназначен для решения совершенно других задач.