program input;
const N	=  1200;
type tablica = array [1..N] of char;
var	pl : text;
   ta  : tablica;
   i   : integer;
procedure czytaj (var plik: text; var t : tablica);
{ wczytuje znaki z pliku plik i wpisuje je do tablicy t.
  dziala 
}
var i : integer;
   r  : char;
begin
   reset(plik);
   i := 1; 
   repeat
	  read(plik, r);
	  t[i] := r;
	  i := i + 1
   until eof(plik) or (i>N);
   close(plik);
   if i<N then
      repeat
	  t[i] := '@';
	  i := i + 1
      until i>N
end; { czytaj }

begin
   assign(pl,'./liczby');
   czytaj(pl,ta);
   for i := 1 to N do
	  if i mod 11 = 0 then
		 writeln(ta[i])
	  else
		 write(ta[i])
end.