to f :x :y :s if :x=0[pr :s]if :y<:x[f :x-1 :y word :s 0]if :y>0[f :x-1 :y-1 word :s 1] end apply "f se rl " bye

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page