var s,s1:string;
    i,j,k,l,n,m:longint;

begin
readln(s);
i:=0;
repeat
inc(i);
if (s[i]='-') or (s[i]='.') then
 begin
 delete(s,i,1);
 dec(i);
 end;
if (s[i]=',') then
 begin
 insert(' ',s,i);
 inc(i);
 end;
until i>=length(s);
write(s);
end.