a:"---+---+---
";b:" | |
";c:charlist(concat(b,a,b,a,b));f(x,y):=(c[x]:ascii(y+79),printf(?t,"~{~a~}
",c));f(2,9);f(30,0);f(58,9);f(10,0);f(50,9);f(54,0);f(26,9);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).