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