-- Bestimmt eine Liste mit den Nummern der 1.Wochentage der Monate eines Jahres bezogen auf den Wochentag des 1. Januars
mtotals :: Year -> [Int]
mtotals y = scanl (+) (jan1 y) (mlengths y)