const COLORS = 7000;
      MAXCOL = 127;

var f :file;
    a :word;
    w :word;
    Z :longint;
    c : byte;
    d : real;
    dump :array[0..COLORS*8] of byte;

Begin

Randomize;

Assign(F, '');  { Standard output }
Rewrite(F,1);



for Z := 1 to COLORS do
Begin
d := Z;
w := round( (MAXCOL*2)  / sqr( (d/1780)  )  );

dec(Z);


a := w shr 2;
if a >= MAXCOL div 2 then a := MAXCOL div 2;
dump[Z*8 + 0 ] := a;
dump[Z*8 + 7 ] := a;


a := w shr 2;
if a >= MAXCOL then a := MAXCOL;
dump[Z*8 + 6 ] := a;

a := w;
if a >= MAXCOL then a := MAXCOL;
dump[Z*8 + 1 ] := a;

a := w shr 2;
if a >= MAXCOL then a := MAXCOL;
dump[Z*8 + 2 ] := a;
dump[Z*8 + 5 ] := a;

a := w shr 3;
if a >= MAXCOL div 2 then a := MAXCOL div 2;
dump[Z*8 + 3 ] := a;
dump[Z*8 + 4 ] := a;




inc(Z);

End;

blockwrite(F,dump,sizeof(dump));

Close(F);


end.