program ped;

uses
  crt;

var
  i, n: integer;
  slova: string;

begin
  Writeln('Введдите предложение и нажмите ентер:');
  readln(slova);
  
  n := slova.Length;
  for i := 1 to n do 
  begin
    
    if slova[i] = ' ' then slova[i] := '*' else slova[i] := '-';
    
  end;
  
  writeln(slova);
  
  
end.