hlBitfield :: Slice Int -> ShowS -> ShowS
    hlBitfield slice inp = hlInfixOp "%"
        (hlShr inp (sliceOffset slice))
        (shows (bit (sliceWidth slice) :: Integer))
hlBitfield :: Slice Int -> ShowS -> ShowS
hlBitfield slice inp = hlInfixOp "%"
        (hlShr inp (sliceOffset slice))
        (shows (bit (sliceWidth slice) :: Integer))
hlBitfield slice inp = hlInfixOp "%"
        (hlShr inp (sliceOffset slice))
        (shows (bit (sliceWidth slice) :: Integer))