[ns] TCP attaching problem

[otcl]

Hello, can someone help with TCP problem? I'm trying to run following tcl code:   or {set i 1} {$i<=$NetNb1} { incr i } {         for {set j 1} {$j<=$NumFlows} { incr j } {                 set tcpsrc($i,$j) [new Agent/TCP/Newreno]                                 set tcp_snk($i,$j) [new Agent/TCPSink/DelAck]                 $tcpsrc($i,$j) set packetsize_ 1000                 $ns attach-agent $N1($i) tcpsrc($i,$j)                 $ns attach-agent $Server tcp_snk($i,$j)                 $ns connect $tcpsrc($i,$j) $tcp_snk($i,$j)                 set ftp($i,$j) [$tcpsrc($i,$j) attach-source FTP] } }    ....a so on, but instead proper function I get the error output like this:   invalid command name "tcpsrc(1,1)"     while executing "$agent set node_ $self"     (procedure "_o58" line 4)     (Node attach line 4)     invoked from within "$node attach $agent"     (procedure "_o3" line 2)     (Simulator attach-agent line 2)     invoked from within "$ns attach-agent $N1($i) tcpsrc($i,$j!
 )         "     ("for" body line 8)     invoked from within "for {set i 1} {$i<=$NetNb1} { incr i } {         for {set j 1} {$j<=$NumFlows} { incr j } {                 set tcpsrc($i,$j) [new Agent/TCP/Newreno]                 # setting tcpsink w..."     (file "mojepareto.tcl" line 54)   This part of code is from 'NS2 for beginners' (Chapter 4 - TCP/IP), is it possible, that it's wrong? Thank You for help.