Someone

clearbans {
  var %x = 1
  while (%x <= $ibl($chan,0)) { if (%x == 1) {
      clipboard $ibl($chan,%x) } { else {
      clipboard -a $ibl($chan,%x) }
      mode $chan - $+ $str(b,$ibl($chan,0))
    }
  }
}