#Prints in binary with lowest bit to the right side.
sub p
{
printf "%20s : %4d => %08b\n", shift, $val, $val;
}