set ns [new Simulator]
source tb_compat.tcl

set nodeA [$ns node]
set nodeB [$ns node]

set link0 [$ns duplex-link $nodeA $nodeB 100Mb 0ms DropTail]

$ns run