function foo(const s: string): string;
var
  i, j: integer;
  s2, Res: string;
begin
  Res := '';
  i := 1;
  while i <= Length(s) do
  begin
    if s[i] = ' ' then
      Res += s[i]
    else
    begin
      j := i;
      s2 := '';
      while (j <= Length(s)) and (s[j] <> ' ') do
      begin
        s2 += s[j];
        j += 1
      end;
      if Length(s2) < 2 then
        s2 := '*'
      else
        s2 := Copy(s2, 2, Length(s2) - 2);
      Res += s2;
      i := j - 1;
    end;
    i += 1;
  end;
  foo := Res
end;

var
  f, f2: Text;
  S: string;

begin
  Assign(f, 'in.txt');
  Assign(f2, 'out.txt');
  Reset(f);
  Rewrite(f2);
  while not Eof(f) do
  begin
    Readln(f, S);
    Writeln(f2, foo(S))
  end;
  Close(f);
  Close(f2)
end.