BEGIN {
  FS = "\t" ;
}

/ID/ {
  print $0 ;
}

!/ID/ {
cap = $17/12 ;
  ORS="" ;
  for ( ii=1 ; ii<=4 ; ii++ ) {
	  print $ii ;
	  print "\t" ;
  }
  print int($5) ;
  print "\t" ;
  if ( $6 >= 1 && cap > 1000 ) {
    print int(2. + 2.*cap/300) ;
  } else {
    print 1 ;
  }
  print "\t" ;
  for ( ii=7 ; ii<=26 ; ii++ ) {
	  print $ii ;
	  print "\t" ;
  }
  print $27;
  print "\n" ;
}

/never/{
}