#!/usr/local/bin/tclsh8.1
set ctr [lindex $argv 0]
set increase [lindex $argv 1]
set decrease [lindex $argv 2]
set filename [lindex $argv 3]
set type TCP($increase,$decrease)
foreach ecn {0 1} {
  foreach rate {1.5 15} {
    foreach queue {DropTail RED} {
      eval "exec sed \"s/s0/s$ctr/g\" < graphs/s0.$filename.mf | sed \"s/QUEUE/$queue/\" | sed \"s/RATE/$rate/\" | sed \"s/AIMD/$type/\" > graphs/s$ctr.mf"
      eval "exec sed \"s/s0/s$ctr/g\" < graphs/s0.loss1.mf | sed \"s/QUEUE/$queue/\" | sed \"s/RATE/$rate/\" | sed \"s/AIMD/$type/\" > graphs/s$ctr.loss1.mf"
      incr ctr
    }
  }
}