#! /usr/bin/perl -w

use strict;

print "brokenness\tdate\n";
while(<>) {
	/^#/ and next;
	my @fields = split(/\t/, $_);
	
	printf "%f%%\t%d\n", (100 / $fields[1] * ($fields[2] - $fields[3])), $fields[0];
}