# support repeat counts up to 99 on commands
::for {::set i 1} {$i < 100} {::incr i} {
	::proc $i args "
		::for {::set j 0} {\$j < $i} {::incr j} {
			::eval \$args}"}