ios_config "mls mpls tunnel-recir"

proc trafficMultiplierA { hops } {
ios_config "ip vrf big1" "rd 11:1999"
ios_config "router isis big1" "vrf big1" "is-type level-2" "metric-style wide" "net 48.0000.0000.9001.00" "red conn" "log all"
for {set a 1} {$a <= $hops} {incr a} {
  set b [expr $a+1000]
  set c [expr (($a+2)/2)+1000]
  ios_config "ip vrf v$c" "rd 11:$c"
  ios_config "inter loo$b" "no logg ev li" "ip vrf for big1" "ip addr 10.11.99.$a 255.255.255.255"
  ios_config "inter tun$b" "no logg ev li" "tun vrf big1" "tun sou loo$b" "tun dest 10.22.99.$a"
  ios_config "inter tun$b" "ip vrf for v$c" "ip addr 10.33.$a.1 255.255.255.252" "ip router isis $c"
  ios_config "router isis $c" "vrf v$c" "is-type level-2" "metric-style wide" "net 48.0000.0000.$c.00" "log all"
  }
}

proc trafficMultiplierB { hops } {
ios_config "ip vrf big2" "rd 22:2999"
ios_config "router isis big2" "vrf big2" "is-type level-2" "metric-style wide" "net 48.0000.0000.9002.00" "red conn" "log all"
for {set a 1} {$a <= $hops} {incr a} {
  set b [expr $a+2000]
  set c [expr (($a+1)/2)+2000]
  ios_config "ip vrf v$c" "rd 22:$c"
  ios_config "inter loo$b" "no logg ev li" "ip vrf for big2" "ip addr 10.22.99.$a 255.255.255.255"
  ios_config "inter tun$b" "no logg ev li" "tun vrf big2" "tun sou loo$b" "tun dest 10.11.99.$a"
  ios_config "inter tun$b" "ip vrf for v$c" "ip addr 10.33.$a.2 255.255.255.252" "ip router isis $c"
  ios_config "router isis $c" "vrf v$c" "is-type level-2" "metric-style wide" "net 48.0000.0000.$c.00" "log all"
  }
}

proc trafficMultiplierAB { hops } {
trafficMultiplierA $hops
trafficMultiplierB $hops
}


trafficMultiplierAB 200