\ A miserable failure to produce a fractal-printing program in Tweetable
\ Forth.
create b 80 allot  1 b 79 + c!
: c 1 and if 35 else 32 then ;
: g 79 0 do
b i 1+ + c@
b i + c@
xor c
b i + c!
loop ;
: p 80 0 do b i + c@ c emit loop cr ;
: r begin g p again ;