Evaluated proc mega {cmd args} {set ret [list]; foreach i [seq 1 999] {if [catch [concat $cmd $args] val] {set val "error: $val"}; lappend ret $val}; join $ret \n}