$define d every writes(x| ||y\c|x|"\n") $define h x:="+";y:="-";d procedure main() every(c|r):=read() h;x:="|";y:=" ";every|1\r do d;h end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page