program bla;
var
n:integer;
procedure q(n:integer);
var i:integer;
begin
if n=5 then
      begin
       for i:=1 to n do
           write(n);
       writeln;
      end;
 else
    begin
         for i:=1 to n do
            write(n);
         writeln;
         q(n+1);
         for i:=1 to n do
         write(n);
         writeln;
    end;
end;
begin n:=1;
q(n);
end.