{Винарский 15_38}
program t_15_38(input, output);
const n=400;
type M=array[1..n] of char;
var d: M; i: integer;

procedure line40(var x: M);
var k: integer; t: text;
  begin
    assign(t,'D:\Паскаль\задача.txt');
    rewrite(t);
    for k:=1 to n do
      begin
        write(t,x[k],' ');
        if (k mod 40=0) then writeln(t, '');
      end;
    close(t);
  end;

begin
  for i:=1 to n do
    read(d[i]);
  line40(d);
end.