inputs: optimizeNumber(numericSimple);
arrays: dowArr[31]("");
vars: currDOWStr(""),daysOfWeek("MTWRF");

//Once
//begin
	print(d," ",t," assigning list ");
	dowArr[1]="MTWRF";dowArr[2]="MTWR";
	dowArr[3]="MTWF";dowArr[4]="MTRF";
	dowArr[5]="MWRF";dowArr[6]="TWRF";
	dowArr[7]="MTW";dowArr[8]="MTR";
	dowArr[9]="MTF";dowArr[10]="MWR";
	dowArr[11]="MWF";dowArr[12]="MRF";
	dowArr[13]="TWR";dowArr[14]="TWF";
	dowArr[15]="TRF";dowArr[16]="WRF";
	dowArr[17]="MT";dowArr[18]="MW";
	dowArr[19]="MR";dowArr[20]="MF";
	dowArr[21]="TW";dowArr[22]="TR";
	dowArr[23]="TF";dowArr[24]="WR";
	dowArr[25]="WF";dowArr[26]="RF";
	dowArr[27]="M";dowArr[28]="T";
	dowArr[29]="W";dowArr[30]="R";
	dowArr[31]="F";
//end;

OptimizeDaysOfWeek = False;
if optimizeNumber > 0 and optimizeNumber < 32 Then
Begin
	currDOWStr = midStr(daysOfWeek,dayOfWeek(d),1);
	if inStr(dowArr[optimizeNumber],currDOWStr) <> 0 Then
		OptimizeDaysOfWeek = True;
end;