\ http://c...content-available-to-author-only...e.com/a/87303/34718
: f >r 1 1 r@ 0 DO 2dup + LOOP 2drop 1 r> 0 DO * LOOP ;
: p 12 1 DO
I f .
LOOP ; p
XCBodHRwOi8vYy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vYS84NzMwMy8zNDcxOAoKOiBmID5yIDEgMSByQCAwIERPIDJkdXAgKyBMT09QIDJkcm9wIDEgcj4gMCBETyAqIExPT1AgOwoKOiBwIDEyIDEgRE8KSSBmIC4KTE9PUCA7IHA=