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