-- Bestimmt den ersten Wochentag eines Monats durch indizierten Zugriff in die Liste der ersten Wochentage eines Jahres
fstday :: (Month,Year) -> Dayname
fstday (m,y) = (fstdays y)!!(m-1)