Aide pour faire un script TCL

[Ahriman]

J'ai fait ce code mais je pense qu'il y a des erreurs:
## [ban]
## Procédure d'utilisation du ban
bind pub - "+b" ban
proc ban {nick host hand chan arg} {
if {![llength $arg]&&![isvoice $nick $chan]} {
putquick "MODE $chan +b $nick"
} else {
if {![onchan [lindex $arg 0] $chan]} {
putquick "MODE $chan +b \ [lindex $arg 0]"
return 0
}
putquick "MODE $chan +b [lindex $arg 0]"
}
}
putlog "Le +b activé"
Problème: Je n'arrive pas à mettre sur accès cette commande. Ou juste un pseudo seulement.