proc trafficMultiplierA { hops } {
for {set a 1} {$a <= $hops} {incr a} {
  set b [expr $a+100]
  set c [expr (($a+2)/2)+100]
  set d "sdn19.$b"
  set e "inter $d"
  set f "router lsrp4 $c"
  set g [expr ($a*2)+120]
  config "vrf def big$c" "rd $b:$c"
  config "$f" "vrf big$c"
  config "$f" "router-id 253.252.$a.1"
  config "$f" "red conn"
  config "$f" "segrout 300 $g"
  config "$e" "vrf for big$c"
  config "$e" "ipv4 addr 253.252.$a.1 /30"
  config "$e" "$f ena"
  config "$e" "mpls ena"
  config "serv p4la p4" "export-vrf big$c $c"
  }
}

proc trafficMultiplierB { hops } {
for {set a 1} {$a <= $hops} {incr a} {
  set b [expr $a+100]
  set c [expr (($a+1)/2)+500]
  set d "sdn20.$b"
  set e "inter $d"
  set f "router lsrp4 $c"
  set g [expr ($a*2)+121]
  config "vrf def big$c" "rd $b:$c"
  config "$f" "vrf big$c"
  config "$f" "router-id 253.252.$a.2"
  config "$f" "red conn"
  config "$f" "segrout 300 $g"
  config "$e" "vrf for big$c"
  config "$e" "ipv4 addr 253.252.$a.2 /30"
  config "$e" "$f ena"
  config "$e" "mpls ena"
  config "serv p4la p4" "export-vrf big$c $c"
  }
}

proc trafficMultiplier { hops } {
trafficMultiplierA $hops
trafficMultiplierB $hops
}


trafficMultiplierA 10
trafficMultiplierB 10
