proc trafficMultiplierA { hops } {
for {set a 1} {$a <= $hops} {incr a} {
  set b [expr $a+1000]
  set c [expr (($a+2)/2)+1000]
  set d "inter Te0/2/0/0.$b"
  set e "router ospf 1 vrf v$c"
  puts "vrf v$c address-family ipv4 unicast"
  puts "$d encap dot1q $b"
  puts "$d vrf v$c"
  puts "$d ipv4 addr 10.33.$a.1/30"
  puts "$e router-id 10.33.$a.1"
  puts "$e area 0 $d network point-to-point"
  }
}

proc trafficMultiplierB { hops } {
for {set a 1} {$a <= $hops} {incr a} {
  set b [expr $a+1000]
  set c [expr (($a+1)/2)+2000]
  set d "inter Te0/2/0/1.$b"
  set e "router ospf 2 vrf v$c"
  puts "vrf v$c address-family ipv4 unicast"
  puts "$d encap dot1q $b"
  puts "$d vrf v$c"
  puts "$d ipv4 addr 10.33.$a.2/30"
  puts "$e router-id 10.33.$a.2"
  puts "$e area 0 $d network point-to-point"
  }
}

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


trafficMultiplierAB 200