import Data.Word -- 32ビット符号なし整数型へ変換 toWord32 :: (Enum a) => a -> Word32 toWord32 = toEnum.fromEnum -- 16ビット符号なし(ry toWord16 :: (Enum a) => a -> Word16 toWord16 = toEnum.fromEnum -- 8ビット(ry toWord8 :: (Enum a) => a ->…