program pb1;
var s:ansistring;
    i,nr:longint;
    c:string;
begin
  read(s);
  for i:=1 to length(s) do
    begin
      if (s[i]<>'-') and (s[i]<>'.')  then
         begin
           if s[i]=',' then
                        write(' ,')
                        else
                        write(s[i]);
         end;
    end;
end.