module Datum where

data Jahreszeit = Fruehling | Sommer | Herbst | Winter
   deriving (Eq, Ord, Enum, Show, Read)

data Monat = Januar | Februar | Maerz | April | Mai | Juni | Juli |
             August | September | Oktober | November | Dezember
   deriving (Eq, Ord, Enum, Show, Read)

type Jahr = Int
type Tag = Int