poring_w01,100,100,5	script	test_mail	1_F_MARIA,{
	setarray .@a$, "0","1","2","3";
	setarray .@resultset$,
		"0,1,2,3","0,1,3,2","0,2,1,3","0,2,3,1","0,3,1,2","0,3,2,1",
		"1,0,2,3","1,0,3,2","1,2,0,3","1,2,3,0","1,3,0,2","1,3,2,0",
		"2,0,1,3","2,0,3,1","2,1,0,3","2,1,3,0","2,3,1,0","2,3,0,1",
		"3,0,1,2","3,0,2,1","3,1,0,2","3,1,2,0","3,2,0,1","3,2,1,0";
	.@loop = 2400;
	for ( .@l = 0; .@l < .@loop; ++.@l ) {
		copyarray .@b$, .@a$, 4;
		array_shuffle(.@b$);
		freeloop true;
		for ( .@i = 0; .@i < 24; ++.@i ) {
			.@print$ = implode( .@b$, "," );
			if ( .@print$ == .@resultset$[.@i] ) {
				++.@resultset[.@i];
				break;
			}
		}
	}
	for ( .@i = 0; .@i < 24; ++.@i ) {
		dispbottom "result set "+( .@i +1 )+" '"+ .@resultset$[.@i] +"' has "+ .@resultset[.@i] +" times.";
		.@total += .@resultset[.@i];
	}
	dispbottom "total = "+ .@total;
	end;
}