proc trafficMultiplier { hops } {
for {set a 1} {$a <= $hops} {incr a} {
  set c [expr $a/256]
  set d [expr $a%256]
  ios_config "vrf definition v$a" "rd 1:$a"
  ios_config "vrf definition v$a" "address-family ipv4"
  ios_config "interface vasileft$a" "ip addr 1.$c.$d.1 255.255.255.252"
  ios_config "interface vasiright$a" "vrf for v$a"
  ios_config "interface vasiright$a" "ip addr 1.$c.$d.2 255.255.255.252"
  ios_config "router bgp 1955" "address-family ipv4 vrf v$a" "bgp router-id 1.$c.$d.2"
  ios_config "router bgp 1955" "address-family ipv4 vrf v$a" "neighbor 1.$c.$d.1 remote-as 777"
  ios_config "router bgp 1955" "address-family ipv4 vrf v$a" "neighbor 1.$c.$d.1 local-as 666 no-prepend replace-as"
  }
}

trafficMultiplier 10