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]} };return $lst }