raw 478:*: {
  if (!$ibl($2,0)) { mode $2 +b }
  var %kalan $calc($ibl($2,0) - 20) 
  var %s %kalan
  while (%s <= $ibl($2,0)) {
    var %t = $addtok(%t,$ibl($2,%s),32)
    inc %s
  }
  massmode $2 -b %t
}

alias banla {
  mode # $+(+,$str(b,12)) $rand(0,9999999999999) $rand(0,9999999999999) $rand(0,9999999999999)  $rand(0,9999999999999)  $rand(0,9999999999999)  $rand(0,9999999999999) 
}

alias massmode {
  var %i = 1, %x = $numtok($3-,32), %y = $modespl
  while (%i <= %x) {
    mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)
    inc %i %y
  }
}