-- | may overflow.
unsafeIntToWord16 :: Int -> Word16
unsafeIntToWord16 = fromInteger . toInteger
unsafeIntToWord16 :: Int -> Word16
unsafeIntToWord16 = fromInteger . toInteger
unsafeIntToWord16 = fromInteger . toInteger