Coasters by uru

var s,t:string='_____________';n,i:comp;begin
read(s);n:=length(s);write(^`,t:n+2,'
/','\':n+3);i:=n div 4;for i:=-i to i do write("
| ",s:n*ord(i=0)," |":2+n*ord(i<>0));write('
\',t:n+2,'/')end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page