#! /usr/bin/perl -w

use strict;

print "v6pref\tdate\n";
while(<>) {
	/^#/ and next;
	my @fields = split(/\t+/, $_);
	
	if(!$fields[6]) {
		print;
		for(@fields) {
			print "$_\n";
		}
	}


	printf "%f%%\t%d\n", (100 / $fields[3] * ($fields[4] - $fields[5] - $fields[6])), $fields[0];
}