Program Example_2;
Uses crt;
Var i: byte;
St,tmp: string;
Begin
Clrscr;
Write('Vv text.. ');
readln(St);

i:=1;
while i<= length(St) do begin
	if St[i]= ':' then begin
		St[i]:= '-';
		inc(i);
		continue;
		end;

	if St[i]= '-' then begin
		St[i]:= ':';
		inc(i);
		continue;
		end;

	if St[i]= '.' then begin
		insert('..',St,i);
		i:=i+2;

		end;

	inc(i);
	end;

Writeln(St);
readln
end.