#!/usr/bin/perl

use warnings;
use strict;

my $b = 0.57;
my $BITS = -24;
my $BASE = 2;

for(my $c = -1; $c >= $BITS; $c--) {
    if (($BASE ** $c) < $b) {
        printf("Bit %2d: %0.15f - %0.15f = %0.15f\n", -$c, $b, $BASE ** $c, $b - $BASE ** $c);
        $b -= $BASE ** $c;
    }
}