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.