Program ff;
Var
A: String;
Begin
Readln(a);
While pos (',',a) >0 do
Delete (a ,pos(',',a),1);
Writeln(a)
End.
Program ff;
Var
A: String;
Begin
Readln(a);
While pos (',',a) >0 do
Delete (a ,pos(',',a),1);
Writeln(a)
End.