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);