#!/lang/perl -n
chomp;
($n, $f) = split /\s+/, $_;
print "$n\t$f\t";
$a = 2 ** ($n/12.0),"\t";
$b = eval($f),"\n";
$d = $b - $a;
$l = log($b/$a)/log(2)*12;
printf join("\t", ("%.4f")x4), $a, $b, $d, $l;
print "\n";