proc trafficMultiplierA { hops } { for {set a 1} {$a <= $hops} {incr a} { set c [expr $a/256] set d [expr $a%256] puts "interface loopback$a" puts "vrf v" puts "ip addr 1.9.$c.$d/32" } } proc trafficMultiplierB { hops } { for {set a 1} {$a <= $hops} {incr a} { set c [expr $a/256] set d [expr $a%256] puts "router bgp 1955 vrf v neighbor 12.3.$c.$d" puts " remote-as 1955" puts " update-source Loopback$a" puts " address-family ipv4 unicast" puts " route-reflector-client" } } proc trafficMultiplier { hops } { trafficMultiplierA $hops trafficMultiplierB $hops } trafficMultiplier 10