finally did it :)

on 32-bit machine

fromIntegral . (^2) /= (^2) . fromIntegral