perl -le'print join "\t", $_, (unpack "B*", pack "I*", $_),($_ & 0xFF) >> 5 for (0..256)'