box paint by *yuko*

var i:byte;s:string;begin repeat readln(s);for i:=3to length(s)do if(s[i-2..i]=" # ")|(s[i-1..i]=". ")then s[i]:=".";writeln(s)until 0>0end.

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

download

return to the top page