program AsciiKiir;
procedure kiir;
var i:integer;
begin
  writeln; writeln;
  for i:=1 to 40 do begin
    write((i mod 10),' ');
  end;
  for i:=1 to 255 do begin
    if ((i mod 40)=0 ) then writeln(chr(i),' ')
    else write(chr(i),' ');
  end;
end;
begin
kiir;
readln;
end.