program Tehtava66(input, output);

{rivien alkuvälilyönnit ja tyhjät rivit pois}

  var merkki: char;
      alussa: boolean;
begin
  while not eof do
    begin
      alussa := true;
      if eoln then 
        readln  {ihan tyhjä rivi vain ohitetaan}
      else
        begin
          while not eoln do
            begin
              read(merkki);
              if merkki <> ' ' then
                begin
                  write(merkki);
                  alussa := false; {rivillä on muutakin}
                end
              else if not alussa then {alussa ei tulosteta!}
                write(' ');  {tässä aina merkki = ' '}
            end; {while not eoln}
          readln;
        end; {else}  
      if not alussa then
          writeln;  {rivillä oli muutakin kuin välilyöntejä}
    end; {while not eof}
end.