Something

chal {
  ; $1 = number of elements
  var %i = 1, %j = 1, %bucket, %bucket1, %bucket2, %bucket3, %bucket4
  %team1 = #StylesOfBeyond
  %team2 = #chance
  %team3 = #seriosii
  %team4 = #idilis2
  %team5 = #oldtimes
  %team6 = #triviasound
  %team7 = #cripta
  %team8 = #futurenet
  %team9 = #cocos_nebun
  %team10 = #icetrivia
  %team11 = #quit
  %team12 = #anarhia
  %team13 = #msg
  %team14 = #triviana
  %team15 = #prostutz
  %team16 = #triviuta
  while (%i <= $$1) {
    %bucket = %bucket %team [ $+ [ %i ] ]
    inc %i
  }
  %i = 1
  while (%i <= 4) {
    %j = 1
    while (%j <= 4) {
      %r = $rand(1, $numtok(%bucket, 32))
      %bucket [ $+ [ %j ] ] = %bucket [ $+ [ %j ] ] $gettok(%bucket, %r, 32)
      %bucket = $deltok(%bucket, %r, 32)
      inc %j
    }
    inc %i
  }
  say 3Grupa 12A3:4 #TriviaMax %bucket1 
  say 3Grupa 12B3:4 #Cellabela %bucket2
  say 3Grupa 12C3:4 #Rotrivia %bucket3
  say 3Grupa 12D3:4 #Trivi %bucket4
}