#!/usr/bin/perl

use POSIX;

while($l = <>)
{
  chomp($l);
  if($l =~ /^\s+(\d+)\.\s+(\d+)\.\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+),/)
  {
    $p1 = $1;
    $p2 = $2;
    $c1 = $3;
    $c2 = $4;
    $c3 = $5;
    $c4 = $6;
    $man = (($c2*1024)+$c3)*1024+$c4;
    $expo = 2.0**($c1-28);
    $number1 = $man*$expo;
    $number2 = 10.0**$p1;
    $error = abs($number1-$number2)/$number2;
    print "$p1 $c1 $c2 $c3 $c4 $man $expo $number1 $number2 $error\n";
    for($expo2=0;$expo2<512;$expo2++)
    {
      $man2 = floor($number2*2.0**(28-$expo2)+0.5);
#     print "$man2\n";
      $d4 = $man2%1024;
      $man2 = ($man2-$d4)/1024;
      $d3 = $man2%1024;
      $man2 = ($man2-$d3)/1024;
      $d2 = $man2%1024;
      $man2 = ($man2-$d2)/1024;
      $d1 = $expo2;
      last if $man2==0 && $d2>1 && $d2<512;
#     print "> $p1 $d1 $d2 $d3 $d4\n";
    }
    $man3 = (($d2*1024)+$d3)*1024+$d4;
    $expo3 = 2.0**($d1-28);
    $number3 = $man3*$expo3;
    $error3 = abs($number3-$number2)/$number2;
    print "$p1 $d1 $d2 $d3 $d4 $man3 $expo3 $number3 $error3\n\n";
  }
}