#!/usr/bin/perl
$|++;
srand(54321);
for (1 .. 20) {
    my $n = int rand(0xF_FFFF_FFFF_FFFF);
  printf "\r%064b %016X\n",$n,$n;
}
exit $?;