Make bigToInt work for MINNEGINT, e.g. try 	fromIntegral (minBound::Int) :: Int
Make bigToInt work for MINNEGINT, e.g. try
	fromIntegral (minBound::Int) :: Int

FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs