Q1.hs

type Fabricante = String
type Potencia = Int

data Lampada = Compacta Fabricante Potencia| Incandescente Fabricante Potencia deriving (Eq)

instance Show Lampada where
    show (Compacta f p) = "Lampada Compacta " ++ (show f) ++ " " ++ (show p)
    show (Incandescente f p) = "Lampada Incandescente " ++ (show f) ++ " " ++ (show p)