Evaluated proc song_longest {list init inc} { set l 0; for {set i $init} {$i < [llength $list]} {incr i $inc} { if {[llength [lindex $list $i]] > $l} {set l [llength [lindex $list $i]]} };return $l  }