var
s:string;
n:integer;
begin
readln(n);
readln(s);
for i:=1 to n do
if (s[i]='.') then delete(s,i,1)
else insert(s[i],s,i);
writeln(s);
end.
var
s:string;
n:integer;
begin
readln(n);
readln(s);
for i:=1 to n do
if (s[i]='.') then delete(s,i,1)
else insert(s[i],s,i);
writeln(s);
end.