\(\(\( (*\ 
      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 . \ *) \)\)\)\)