-- Bestimmt den Wochentag eines beliebigen Datums mittels des Abstandes zum Wochentag des ersten Tages des Monats
day :: Date -> Dayname
day (d,m,y) = (fstday (m,y) + d - 1) mod 7