var
  s,sn: string;
  i: integer;
begin
  writeln('Vvedite text:');
  readln(s);
  s:=' ' +s;
  sn:='';
 for i:=1 to length(s) do
 begin
    if s[i] = '.' then
    begin
    sn:=sn+'...';
    end;
    if s[i] = ':' then
    begin
    sn:=sn+'-';
    end;
    if s[i] = '-' then
    begin
    sn:=sn+'.';
    end
    end;
 writeln(sn);
end.