1module Cards where 2 3data Int = -2147483648 | -2147483647 | ... | -1 | 0 | 1 | 2 | ... | 2147483647 4newtype Fd = Fd CInt 5data Bool = True | False 6 7add :: Integer -> Integer -> Integer 8add x y = x + y 9