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} {append out " - [lindex $mlist $i]] - "} };. [llength $mlist]  }