: r 0 BEGIN
64 0 DO 1 over i and pad + c! LOOP
64 0 DO 0 pad i + dup c@ 32 + emit c! LOOP cr
1+
AGAIN ;
r
\ A Forth tweetable fractal!
\ two loops, second one clearing: 107 bytes
\ using fill: 112 bytes
\ : r 0 BEGIN 64 0 DO 1 over i and pad + c! LOOP 64 0 DO 0 pad i + dup c@ 32 + emit c! LOOP cr 1+ AGAIN ; r