$define d /writes(x| ||y\c|x|"\n") $define h x:="+";y:="-";d procedure main() /((c|r):=read()) h;x:="|";y:=" ";/(|1\r&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