1 #

     2 # Network definition file for localhost network.

     3 #

     4 for {set i 0} {$i < 50} {incr i} {

     5     net::node $i localhost [expr 10000 + $i*1000]

     6 }