module A where

data T = A Int | B Float deriving Eq

f :: Double -> Double
f x = x + x