Evaluated proc mega {cmd args} {smega [concat $cmd $args] 5}
Evaluated proc smega {block {n 10}} {set ret [list]; foreach i [seq 1 $n] {if {[catch {uplevel 1 $block} val] == 1} {set val "error: $val"}; lappend ret $val}; join $ret \n}
Evaluated proc block {{part {}}} {upvar block block if {${part} eq "args"} { first ${block} } elseif {${part} eq "body"} { last ${block} } elseif {${part} eq "arity"} { llength [first ${block}] } else { set block }}
Evaluated setimg wellness https://farm3.staticflickr.com/2918/13919062560_b645b711b9_b.jpg