var s:string;i,n:byte;begin repeat readln(s);n:=length(s)-2;write(s:1,"":ord(pos(^`,s)>0)*n);for i:=1to n+1do write(trim(s[i]));writeln 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