#!/usr/bin/perl

while (<>) {
	chomp;
	/(.*)\t(.*)/;
	$amp = &round($2 * 8.0) / 8.0;
	print $1."\t".$amp."\n";
}

sub round {
        my $x = shift;
        my $y = 0.5 + abs $x;
        my $abs = int $y;
        $abs -= $abs % 2 if $y == $abs;
        ($x <=> 0) * $abs;
}