program p22;

const
  filename = 'e:\file.txt';
  N = 500;

var
  f: text;
  c: char;
  str: array [1..N] OF CHAR;
  s: string;

  i, dl, k: integer;


begin
  assign(f, filename);
  reset(f);

  while not eoln(f) do
    read(f, s);

  close(f);

  k := 0; i := 1; dl := length(s);

  while i < dl do
  begin
    if s[i] <> ' ' then i := i + 1;
    if s[i] = ' ' then i := i + 1;
    while s[i] = ' ' do
      delete(s, i, 1);
    if ((s[i] = '.') or (s[i] = ',') or (s[i] = '?') or (s[i] = '!') or (s[i] = '-') or (s[i] = ':')) and (s[i - 1] = ' ') then begin delete(s, i - 1, 1); end;
    dl := length(s);
  end;

  append(f);

  writeln(f, ' ');
  writeln(f, s);
  close(f);

end.