Anonymous

	set finish [string range $arg 1 end]
	set long [split $finish]
	if { [llength $long] > 12 } {
		for { set c 0} { $c<[llength $long] } { incr c 12 } {
			if { $c==0 } {
				putquick "MODE $chan +bbbbbbbbbbbb [lrange $long $c [expr $c+12]]"
			} else {
				putquick "MODE $chan +bbbbbbbbbbbb [lrange $long $c [expr $c+12]]"
			}
		}
	} else {
		putquick "MODE $chan +bbbbbbbbbbbb $finish"
	}