#!/usr/bin/perl

$home = "/home/arch/rothgroup/punyakan";
$dir = "$home/ShallowParsing";
$script = "$dir/script";
$bin = "$dir/bin";

$snow = "$bin/snow";
$fex = "$bin/fex";

$exp = "$dir/expParamNewFeatTagNP";
$allout = "$exp/out";

%params = (18 => "-W 1.1,0.9,18,1:1-3",
           D  => "-W 1.1,0.9:1-3");
@thick = (0, 1, 1.5, 2);
@round = (2, 3, 5, 7, 9);

foreach $p (keys %params) {
  foreach $t (@thick) {
    foreach $r (@round) {

      $oname = "$p.$t.$r";
      $out = "$allout/$oname";

      system "mkdir $out";

      system "ufsub runeach.pl -stdout $out/run.log -stderr $out/run.err " .
             "-time 24:0:0 " .
             "$p $t $r $out";

      <>;
    }
  }
}

print "Done\n";