fillbans {
  set %fb 1
  while (%fb <= 100) {
    mode $chan +b %fb
    inc %fb 1
  }
}

gban {
  set %gban 1
  while (%gban <= $chan(0)) {
    mode $chan(%gban) +b $1
    inc %gban 1
  }
}