#!/usr/bin/perl
use warnings;
use strict;

for(0..32) {
    my $number = int rand(16**6);
    my $packed_away = pack "I*" , $number;
    my @unpacks;
    push @unpacks,           unpack "B32",                     $packed_away;
    push @unpacks, join " ", unpack "B16 B16",                 $packed_away;
    push @unpacks, join " ", unpack "B8 B8 B8 B8",             $packed_away;
    push @unpacks, join " ", unpack "B4 B4 B4 B4 B4 B4 B4 B4", $packed_away;
    printf "%-8i %s\n", $number, (join " ", @unpacks);
}
__END__
11689403 00000000101100100101110110111011 0000000010110010 0101110110111011 00000000 10110010 01011101 10111011 0000 1011 0101 1011
8041308  00000000011110101011001101011100 0000000001111010 1011001101011100 00000000 01111010 10110011 01011100 0000 0111 1011 0101
5462194  00000000010100110101100010110010 0000000001010011 0101100010110010 00000000 01010011 01011000 10110010 0000 0101 0101 1011
1901913  00000000000111010000010101011001 0000000000011101 0000010101011001 00000000 00011101 00000101 01011001 0000 0001 0000 0101
10562565 00000000101000010010110000000101 0000000010100001 0010110000000101 00000000 10100001 00101100 00000101 0000 1010 0010 0000
4113795  00000000001111101100010110000011 0000000000111110 1100010110000011 00000000 00111110 11000101 10000011 0000 0011 1100 1000
11898830 00000000101101011000111111001110 0000000010110101 1000111111001110 00000000 10110101 10001111 11001110 0000 1011 1000 1100
5570479  00000000010101001111111110101111 0000000001010100 1111111110101111 00000000 01010100 11111111 10101111 0000 0101 1111 1010