data Function = Max
              | Min
              | Moy
              | Med
              deriving (Eq,Data,Typeable)

data Function = funMax
              | funMin
              | funMoy
              | funMed
              deriving (Eq,Data,Typeable)