set ns [new Simulator]
source tb_compat.tcl

$ns rtproto Static

set server  [$ns node]
set router  [$ns node]

set client1 [$ns node]
set client2 [$ns node]

set serverLink [$ns duplex-link $router $server 1.5Mb 30ms DropTail]
tb-set-link-loss $serverLink 0.01

set clientLAN [$ns make-lan "$client1 $client2 $router" 100Mb 0ms]

$ns run