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