sub plonk {
    my ($b0, $b1, $b2, $b3) = @_;
    return     $b0 & 0x7f
            + ($b1 & 0x7f) << 7
            + ($b2 & 0x7f) << 14
            + ($b3 & 0x7f) << 21;
}