Evaluated proc ltrim lst { for {set i 0} {$i < [llength $lst]} {incr i} { if {[trim [lindex $lst $i]] eq ""} {set lst [lreplace $lst $i $i]} };. $lst }