- shifted_x1 = (fromIntegral $ x `quot` 2^(24 :: Integer)) :: Int
- shifted_x2 = (fromIntegral $ x2 `quot` 2^(16 :: Integer)) :: Int
- shifted_x3 = fromIntegral $ x3 `quot` 2^(8 :: Integer) :: Int
+ shifted_x1 = (fromIntegral $ x `quot` (2 ^ (24 :: Integer))) :: Int
+ shifted_x2 = (fromIntegral $ x2 `quot` (2 ^ (16 :: Integer))) :: Int
+ shifted_x3 = (fromIntegral $ x3 `quot` (2 ^ (8 :: Integer))) :: Int