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