#!/usr/local/bin/perl
while ( 1)
	{
	$t1=<>;
	chop $t1;
	( $dow1, $mon1, $dom1, $hrms1, $edt1, $yr1) = split( " ", $t1);
	( $hr1, $min1, $sec1) = split( ":", $hrms1);
	$time1 = ((( $dom1 * 24 + $hr1)*60 + $min1)*60 + $sec1);
	print " t1 ${t1} time1 ${time1} \n";
#	$GGG=<>;
	$GGG=<>;
	$l = <>;
	chop $l;
	( $h, $min, $sec) = split( ":", $l);
	( $sec, $p ) = split( " ", $sec);
	( $u, $s, $hr ) = split( " ", $h );
	$ll = $hr . ":" . $min . ":" . $sec;
	$tt = ( $h*60 + $min)*60 + $sec;
	$u =~s/u//;
	$s =~s/s//;
	$p =~s/\%//;
	$llll=<>;
	$t2=<>;
	chop $t2;
	( $dow2, $mon2, $dom2, $hrms2, $edt2, $yr2) = split( " ", $t2);
	( $hr2, $min2, $sec2) = split( ":", $hrms2);
	$time2 = ((( $dom2 * 24 + $hr2)*60 + $min2)*60 + $sec2);
	$time = $time2 - $time1;
	$tt1 = ( $hr*60 + $min)*60 + $sec;
	$tt2 = $u + $s;
	$rt = $time*$p;
	$rt = $rt/100;
#	print "time2 $time2 time1 $time1 \n";
	print " time $time tt1 $tt1 rt $rt tt2 $tt2 p $p \n";
	printf "\n R<td> %s </td> <td> %.1f </td> <td> %d </td>            X\n", $l, $tt2, $time;
	}