
set file "reqs.txt"

### so the words will be saved into the arrays
proc start:read {} {
global cwd file
  if {[file exist $file]} {
    set fs [open $file r] 
    while {![eof $fs]} { 
       gets $fs line; set $line [join $line]
         if {[llength $line] >= 2 } {
            set wchan [lrange $line 0 0]
            if {![info exist cwd($wchan)]} { set disc [lrange $line 1 end]; set cwd($wchan) "$disc" }
         }
    }  
    close $fs 
  }
}
### Every minute the arrays will be saved into the file with the name $file
proc start:read {} {
global cwd file
  if {[file exist $file]} {
    set fs [open $file r] 
    while {![eof $fs]} { 
       gets $fs line; set $line [join $line]
         if {[llength $line] >= 2 } {
            set wchan [lrange $line 0 0]
            if {![info exist cwd($wchan)]} { set disc [lrange $line 1 end]; set cwd($wchan) "$disc" }
         }
    }  
    close $fs 
  }
}



bind pub-add - -add 
proc -add { nick uhost hand chan arg } { 
    global chan_ign
set args [join $args]
set word [lrange $args 0 0]
set disc [join [lrange $args 1 end]]
set channel [string tolower $channel]; set chan_ign [string tolower $chan_ign]
 if {[lsearch $chan_ign $channel] < "0" } {
  if {$word == ""} {
     putserv "NOTICE $nick :You forgot the word! \037Syntax: \002.add <word> <discription>\002\037"
  } elseif {$disc == ""} {
     putserv "NOTICE $nick :You forgot the discription! \037Syntax: \002.add <word> <discription>\002\037"
  } else {
     global cwd
     set cwd($word$channel) "$disc"
     putserv "NOTICE $nick :Added succesfully the word \002$word\002 in the channel \002$channel\002 with the discription: \002$disc\002"
  }
 } else { putserv "NOTICE $nick :This channel is ignored for using the DictionarySystem. Please take contact with the owner of this bot." }
}


is there sumthing wrong with this cause it wont load.