-- Repräsentation eines Datums
type Date    = (Day,Month,Year)
type Day     = Int
type Month   = Int
type Year    = Int

-- Repräsentation eines Wochentages (Sonntag == 0)
type Dayname = Int