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" }