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