program blablabla;
var s,s1:ansistring;
    limita,i:integer;
begin
  readln(s);
  limita:=length(s);
  s1:='';
  for i:=1 to limita do
    if (s[i]<>'-')and(s[i]<>'.') then
      if s[i]<>',' then
        s1:=s1+s[i]
      else
        s1:=s1+' '+s[i];
  writeln(s1);
end.