Evaluated proc jizzcumm2 args {set str [lrange $args 0 end-1]; join [map [seq 1 [last $args]] {x {jizzcum2 [split $str " "]}}] \n}