program z9_12;
var s:string;i:integer;
begin
readln(s);
for I:=1 to length(s) do if (s[i]=',') and (not(s[i+1]=' '))
then insert(' ',s,i+1);
writeln(s);
end.