my $row = 0;
my $prev;
while(<>) {
	chomp;
	my $delta = 0;
	$delta = $_ - $prev if (defined($prev));
	print "\tdata.setCell($row, 0, $_);\n";
	print "\tdata.setCell($row, 1, $delta);\n";
	$prev = $_;
	$row++;
}
