use strict;
use warnings;

my $fp = 1/2; # m/2^n may be represented perfectly in base 2.
printf "%25.32g\n", $fp;
my $p = pack 'F', $fp;
my $b = unpack 'b*', $p;
print "$b\n";
$b =~ s/(.)/$1 ? 0 : 1/e;
print "$b\n";
my $np = pack 'b*', $b;
my $nfp = unpack 'F', $np;
printf "%25.32g\n", $nfp;

##</code><code>##

                      0.5
0000000000000000000000000000000000000000000000000000011111111100
1000000000000000000000000000000000000000000000000000011111111100
0.50000000000000011102230246251565