set server [lindex [dp_connect eclair1 1340] 0]
set x {}
for {set i 0} {$i < 1000} {incr i} { lappend x $i }
set i 0
while 1 {
    incr i
    set len [expr $i % 1000]
    dp_packetSend $server [lrange $x 0 $len]
}

set socket [lindex [dp_connect -server 1340] 0]
set client [lindex [dp_accept $socket] 0]
set i 0
while 1 {
    dp_packetReceive $client
    incr i
    puts $i
}
