Code:

set out_chan "#Trainingroom" set txt_file "training.txt" bind msg SA|SA !next next_proc bind msg SA|SA !back back_proc proc tr_proc { nick uhost hand arg } {   global out_chan txt_file   set line [lindex [split $arg] 0]   if {$line == ""} {     putserv "PRIVMSG $chan :Usage: !next <line number>"     return   }   set take_me [open $txt_file r]   set take_all [split [read $take_me] "\n"]   close $take_me   set data [lindex $take_all [expr $line - 1]]   putquick "PRIVMSG $out_chan :$data" } proc back_proc { nick uhost hand arg } {   global out_chan txt_file   set line [lindex [split $arg] 0]   if {$line == ""} {     putserv "PRIVMSG $chan :Usage: !back <line number>"     return   }   set take_me [open $txt_file r]   set take_all [split [read $take_me] "\n"]   close $take_me   set data [lindex $take_all [expr $line - 1]]   putquick "PRIVMSG $out_chan :$data" }