var input, output: text;
PocetSlov, sirka: integer;
konec: boolean;
riadok, NavyseSlovo, NavyseSlovo2, Zformatovany: string;

procedure Sformatovat(riadok:string; PocetSlov:integer);
var dlzka, zvysok, volno, medzera, i, j: integer;
znak: char;
begin
    if PocetSlov>1 then begin
        dlzka:=length(riadok)-1;
        volno:=sirka-dlzka+PocetSlov-1;
        medzera:=volno div (PocetSlov-1);
        zvysok:=volno mod (PocetSlov-1);

        for i:=1 to dlzka do begin
            znak:=riadok[i];
            if znak=' ' then begin
            for j:=1 to medzera do
                write(output, ' ');
                if zvysok > 0 then begin
                    write(output, ' ');
                    Dec(zvysok);
                end;
            end else write(output, znak);
        end;
    end else writeln(output, riadok);
    writeln(output, '');
end;

procedure Nacitajriadok(var riadok, NavyseSlovo: string; var PocetSlov: integer; NavyseSlovo2: string);
var znak:char;
slovo:string;
begin
    riadok:=''; NavyseSlovo:=''; slovo:=''; PocetSlov:=0;
    if length(NavyseSlovo2)>0 then begin riadok:=NavyseSlovo2+' '; PocetSlov:=1; end;
    repeat
    read(input, znak);
    if (znak=#10) or (znak=#13) then znak:=' ';
    if (znak=' ') or (eof(input)) then begin
        if length(riadok)+length(slovo)<=sirka then begin
            if length(slovo)>0 then begin
                if eof(input) then riadok:=riadok+slovo+znak
                else riadok:=riadok+slovo+' ';
                Inc(PocetSlov);
            end;
            slovo:='';
        end else begin
            NavyseSlovo:=slovo;
                if eof(input) then NavyseSlovo:=NavyseSlovo+znak;
                break;
            end;
        end else
        slovo:=slovo+znak;
    until eof(input);
    if eof(input) then konec:=true;
end;

begin
    assign(input, 'odst.in');
    reset(input);
    assign(output, 'odst.out');
    rewrite(output);
    readln(input, sirka);

    repeat
        Nacitajriadok(riadok, NavyseSlovo, PocetSlov, NavyseSlovo2);

        if konec then begin
            if length(NavyseSlovo)>0 then begin Sformatovat(riadok, PocetSlov); write(output, NavyseSlovo); end else
                write(output, riadok)
            end
        else Sformatovat(riadok, PocetSlov);
        NavyseSlovo2:=NavyseSlovo;
    until konec;

    close(input);
    close(output);
end.