for(set .@i, 0; .@i < 4; set .@i, .@i + 1){ set .@j, 4; set .@k, rand(.@j); while(.@k == .@j) { set .@k, rand(.@j); } setarray .@random[.@i], .@k; set .@j, .@j - 1; }