array d[0:36];
d[0] := 0; d[1] := 0; d[2] := 0; d[3] := 0; d[4] := 0; d[5] := 0;
k := 5;
4 < k and k < 36 herhaal

begin		j := k-1; geluk := true;
		j ≥ 4 and geluk herhaal
		begin gelijk := true; h := 0;
			h ≤ 4 and gelijk herhaal
			begin gelijk := (d[k-h] = d[j-h]); h := h+1 end;
			gelijk zoja geluk := false; j := j-1
		end;
		geluk dan
		begin k := k+1; k ≤ 31 dan d[k] := 0 anders d[k] := d[k-32] and
		      anders
		begin k > 31 zoja k := 31;
			d[k] = 1 zoja k := k-1;
			d[k] := 1
		end
end

Last revised on Sat, 19 Jul 2003.