#!/usr/bin/gawk -f
# /* vim: set filetype=awk : */ # -*- awk -*-

BEGIN{

}

/1 worth/ {
  # note that we have found a treatment, and process it
  found1 = 1;
  for (i=3; i<NF+1; i++) {
    if ($i !~ /\.\./) {
      $i = substr($i,2,length($i)-2);
      split ($i, b1, "=");
      $i = b1[1] " = " b1[2];
    }
    else {
      split ($i, a1, "=");
      print a1[1] "---" a1[2];
      sep = "..";
#      split (a1[2], a2, sep);
      ind = index(a1[2], sep);
#      print a2[1] "---" a2[2] "---" a2[3] "---" a2[4];
      a = substr(a1[1],2,length(a1[1])-1);
      b = substr(a1[2],2,ind-2);
      c = substr(a1[2],ind+2,(length(a1[2])-length(b)-5));
      $i = a " just " b " " c;
    }
    BestTreat[i] = $i;
  }

}

END {
 # print BestTreat if there is one ;
  buff = "";
  rec = "";
  while (getline f < "outPro"){
    if (f ~ /^EOF/) {
      if (found1 == 1) {
	for (j in BestTreat) {
	  rec = BestTreat[j];
	  buff = buff "\t\t\t" BestTreat[j] "\n";
	}
      }
    }
    if (f !~ /^\n/)
      buff = buff f "\n";
  }
  print buff > "outPro";
  print rec >> "outRec";
  

  if (found1 == 1) {
    buff2=".";
    for (k in BestTreat)
      buff2 = BestTreat[j] " / " buff2 ; 

    print buff2;
  }
 
}