program xxx;
uses CRT;
var
i, n:integer;
s, ans, checker:string;

function isSign(x:char):boolean;
var
isS:boolean;
n, i:integer;
begin
n:=length(checker);
isS:=false;

for i:=1 to n do
if (checker[i]=x)then
begin
isS:=true;
break;
end;

isSign:=isS;
end;

begin
write('Vvedite predlozhenie: ');
readln(s);
n:=length(s);
checker:='. , - : " ! ? ;';
for i:=1 to n do
if (s[i]<>' ') then
begin
if (isSign(s[i])=true)then
ans:=ans+'*'
else
ans:=ans+s[i];
end;

write(ans);

end.