players =: a.{~65+i.24
   teams =: (#~]-:"1~."1)~./:~/:~"1>,{4$<players
   good =: teams#~[:(*./"1) 1>: teams&(+/@:e."1"1 _)
   fmt =: ,/@:(,&' '"1)"2
   rand =: 3 :'((,(?@:#{])@:good) ::])^:_ i.0 4'
   fmt 3 :('while. 1!:2&2#(t =: rand 0)'; '35>:#t'; 'do. end.'; 't') 0