(* Complemnt.nb --------------------------------------------------------- *)

(* For two families of posets over a range of sizes, the complement of fam2
	in fam1 is written to the specified file. *)

(* Utility Needed: WriteLstOfLst[]. *)

(* User needs to specify the directory, the starting size, the ending size,
	 the two input file families, and the output file family. *)

(* Change Directory: *)         
SetDirectory["G:/.isis/home/c/a/cagann/public_html/Posets"];
<< GenrlUtils.m;

(* Change starting size: *)     nstrt = 7;
(* Change ending size: *)       nend =  9;

(* Change both input families: *)  fam1 = "UMaxmls/umaxmls";
                                   fam2 = "Cnctdcs/cnctdcs";

(* Change the output family: *)   newfam = "UMxndcs/umxndcs";

Do[
	inpt1 = ReadList[ StringJoin[fam1,ToString[nc]] ];
	inpt2 = ReadList[ StringJoin[fam2,ToString[nc]] ];

	WriteLstOfLst[
		StringJoin[newfam,ToString[nc]],
		Complement[inpt1,inpt2]
	];
,{nc,nstrt,nend}];

(* End of Complemnt.nb. *)