Evaluated proc song_longest {mlist init inc} { set l 0; set out ""; for {set i $init} {$i < [llength $mlist]} {incr i $inc} { if {[string length [lindex $mlist $i]] > $l} {set l [string length [lindex $mlist $i]]} };. $l  }