word20HexFixed :: Word32 -> PP.Doc
word20HexFixed w = M.mconcat [ word8Hex (fromIntegral (w .&. 0x00FF0000) `shiftR` 16)
                           , word16HexFixed (fromIntegral (w .&. 0x0000FFFF))
                           ]
word20HexFixed :: Word32 -> PP.Doc
word20HexFixed w = M.mconcat [ word8Hex (fromIntegral (w .&. 0x00FF0000) `shiftR` 16)
                           , word16HexFixed (fromIntegral (w .&. 0x0000FFFF))
                           ]
word20HexFixed w = M.mconcat [ word8Hex (fromIntegral (w .&. 0x00FF0000) `shiftR` 16)
                           , word16HexFixed (fromIntegral (w .&. 0x0000FFFF))
                           ]