+ -- Convert the input Int to a Word32 before we proceed. On x86,
+ -- the Int that we get could be negative (half of all IP
+ -- addresses correspond to negative numbers), and then the magic
+ -- below doesn't work. The Word32 type is unsigned, so we do the
+ -- math on that and then convert everything back to Int later on
+ -- once we have four much-smaller non-negative numbers.
+ x = fromIntegral y :: Word32
+