type amout;

(amout ofile ) runam (string id, string xmin, string xinc, string xmax,
                                  string ymin, string yinc, string ymax,
                       string delay)
{
  app { runam6 id xmin xinc xmax ymin yinc ymax delay; }
}  

type params {
  string id;
  string xmin;
  string xinc;
  string xmax;
  string ymin;
  string yinc;
  string ymax;
  string delay;
};

doall(params pset[])
{
  foreach p in pset {
    amout ofile <single_file_mapper; file=@strcat("amdi.",p.id)>;
    ofile = runam(p.id, p.xmin, p.xinc, p.xmax, p.ymin, p.yinc, p.ymax, p.delay);
  }
}

// Main

params p[];
p = readdata("paramlist");
doall(p);