#!/usr/bin/env perl

use strict;
use warnings;
use Data::IEEE754::Tools qw/ulp/;

sub uv_fits_double_using_ulp {
    0 == ($_[0] % ($_[0]/ulp($_[0])))
}

my @in = map { no warnings 'portable'; chomp; oct('0b'.$_) } <DATA>;

for(@in) {
    my $d = $_/ulp($_);
    printf "%-24s: %4d %32.15f %16d %1s\n", $_, ulp($_), $_/ulp($_), $_ % $d, uv_fits_double_using_ulp($_) ? 'T' : 'F';
}

__END__
1111111111111111111111111111111111111111111111111111100000000000
1111111111111111111111111111111111111111111111111111110000000000
1111111111111111111111111111111111111111111111111111100000000001
1111111111111111111111111111111111111111111110011011100000000000
1111111111111111111111111111111111111111111111111111100000000000
0111111111111111111111111111111111111111111111111111110000000000
0011111111111111111111111111111111111111111111111111111000000000
0001111111111111111111111111111111111111111111111111111100000000
0000111111111111111111111111111111111111111111111111111110000000
0000011111111111111111111111111111111111111111111111111111000000
0000001111111111111111111111111111111111111111111111111111100000
0000000111111111111111111111111111111111111111111111111111110000
0000000011111111111111111111111111111111111111111111111111111000
0000000001111111111111111111111111111111111111111111111111111100
0000000000111111111111111111111111111111111111111111111111111110
0000000000011111111111111111111111111111111111111111111111111111
0000000000111111111111111111111111111111111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111111