to f :m :s
if :m>0[for[i 1 3][pr word :s i f :m-1(word "|   | :s i ".)]]
end
f rw " bye