-- Bestimmt die ersten Wochentage der Monate eines Jahres
fstdays :: Year -> [Dayname]
fstdays = take 12 . map (`mod` 7) . mtotals