program bulaneala;
var s:string;
    i:integer;
begin
   read(s);
   while pos('-', s) > 0 do delete(s, pos('-', s), 1);
   while pos('.', s) > 0 do delete(s, pos('.', s), 1);
   for i := 1 to length(s) do
      if s[i] = ',' then write(' ,') else write(s[i]);
end.