-- Liefert eine Liste der Monatslängen eines Jahres, der Februar wird schaltjahresabhängig bestimmt
mlengths :: Year -> [Int]
mlengths y = [31,feb,31,30,31,30,31,31,30,31,30,31]
             where feb = if leap y then 29 else 28