#include "libcpp.h"
using namespace liberr;
using namespace tools;
using namespace libcpp;
using namespace std;


int main()
{
  
  ifstream raw("cty_raw.dat");
  if (!raw) liberr::error("Error, Cannot open cty_raw.dat");

  ofstream don("cty_don.dat");
  if (!don) liberr::error("Error, Cannot open cty_don.dat");

  INT_32BIT seed = 770726;

  REAL u;

  string line;

  getline(raw,line);

  don << line << '\n'; 

  while(getline(raw,line)) {

    INTEGER j=0;
    char c;
    for(INTEGER i=1; i<=470; i++) {
      while(line[j++]!=',');
    }

    c = line[j];
    
    u = ran(&seed);
    
//  if ((u < .95)&&(c=='1')) don << line << '\n';
    if (c=='1') don << line << '\n';

  }

  return 0;
}