program z6_44;
uses crt;
procedure outline(k:integer);
var i:integer;
BEGIN
if k<4 then begin
write('':2*(k-1));
for i:=1 to 4*(5-k) do write(k);
writeln;
outline(k+1);
end;
write('':2*(k-1));
for i:=1 to 4*(5-k) do write(k);
writeln;
end;
BEGIN
outline(1);
readln;
END.