var
s: string;
i: integer;
begin
readln(s);
for i := length(s) downto 1 do
if s[i] = 'P' then delete(s, i, 1);
writeln(s);
end.
var
s: string;
i: integer;
begin
readln(s);
for i := length(s) downto 1 do
if s[i] = 'P' then delete(s, i, 1);
writeln(s);
end.