--14.X
--a
data Mobiel	= Gewicht Int | Totaal Mobiel Mobiel 

--b
gewicht :: Mobiel -> Int
gewicht (Gewicht x) = x
gewicht (Totaal g1 g2) = gewicht (g1) + gewicht (g2)