>>150
マクロがないので、悔し紛れにクロージャで(^_^;)

VisualWorks 7.2nc

| nestedLoops x |
nestedLoops := [ : n : nestLevel : proc |
　nestLevel = 0
　　ifTrue: [proc]
　　ifFalse: [
　　　nestedLoops
　　　　value: n
　　　　value: nestLevel-1
　　　　value: [n timesRepeat: proc]]].
x := 0.
(nestedLoops value: 16 value: 6 value: [x := x + 1]) value.
^ x

print it時にいろいろ叱られた末、速度も200%増しでｼｮﾎﾞｰﾝ
かえって分かりにくいし…