var word: array[1..100] of string;
    n,i: longint;
    s: string;
begin
  Writeln('Vvedite kol-vo slov');
  readln (n);
  for i:= 1 to n do
    begin
    readln (word[i]);
    if length(word[i])>length(s) then
      s:= word[i];
    end;
  for i:= 1 to length(s) do
    if s[i] in ['0'..'9'] then
      s[i]:= '*';
  writeln (s);
end.