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