#!/usr/bin/gawk -f

## This script will extract the which and tar rules from their files.

BEGIN{
  goWhich = 0;
  goTar = 0;
  FS=OFS=" ";
}

Pass=1 && /Stack after picking/{
  goWhich = 1;
  next;
}

Pass=1 && goWhich && /=/{
  sub( "and ", "" )
  sub( / *= */, "" );
  sub( /\[ */, ":" );
  sub( / ,/, "," );
  sub( / *\]/, "" );
  gsub( / *OR */, "," );
  sub( / *$/, "" );
  print $0;
}

Pass=2 && /Treatments learnt/{
  FS=OFS="[";
  goTar = 1;
  next;
}

Pass=2 && goTar && /=/{
  sub( /.*worth=[0-9]*.[0-9]*/, "" );
  for ( i  = 2; i <= NF; i++ )
  {
    sub( /\[/, "", $i );
    sub( /\]/, "", $i );
    sub( /=/, ":", $i );
    sub( / *$/, "", $i );
    print $i;
  }
  exit;
}

END{
  print "END";
  print "";
}