Test[]:=
Block[{i,n,Old=0,New=0},

      s=Table[0,{i,4}];

      n=Input["Please input the n\n"];

      For[i=1,i<=n,i++,
	Block[{},
          s[[1]]=Random[Integer,{0,1}];
          s[[2]]=Random[Integer,{0,1}];
          s[[3]]=Random[Integer,{0,1}];
          s[[4]]=Random[Integer,{0,1}];
	  Print[s];
	  If[s[[1]]+s[[2]]+s[[3]]+s[[4]]==1,
	     Old=Old+1];
	  If[Mod[i,2]==0, If[s[[1]]+s[[2]]==1, New=New+1],
	     If[s[[3]]+s[[4]]==1, New=New+1];
	   ];
         ];

      Print["Old=",Old," ; New=",New];

];
]
