module A where data T = A Int | B Float deriving Eq f :: Int -> Int f x = x + 3