if l0 == 0 then { l7 := 17*deg + daysleft; };
if ( l0==0 and not b==l7 ) then { color:= rnd(nr); b:= l7-1; l0:= 1; };
if ( b==l7 and l0==0 and color>nr-1 ) then { l1:= rnd(10)+2; };
if ( b==l7 and l0==0 and not (deg>5*daysleft-4) and rnd(1000) < (535+350*daysleft)/deg ) then { l1:= rnd(10)+2; };

if l1>0 then { color := rnd(nr); l2:= rnd(2); };
if ( l1>0 and l2==0 ) then { l2:= -1; };

if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };

if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };

if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };

if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };

if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };
if ( l1>1 and not Eceq(color) ) then { l1:= l1-1; l3:= color; };
if l1 > 1 then { color := (color+nr+l2)%nr; };

if ( l1>1 and l3>0 ) then { color:= l3; };
if ( l1>1 and l3==0 ) then { color:= nr; };
if l1>0 then { l1:=0; };
if ( l0==0 and b==l7 ) then { b:= l7-1; };
if l0==0 then { l0:= 2; };