var s:string;
i:integer;
begin
readln(s);
for i:= length(s) downto 1 do
if s[i]=',' 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]=',' then delete (s, i, 1);
writeln(s);
end.