(define (divides? a b)
(= (remainder a b) 0))

(define (leap-year? c)
    (cond   ((= (divides? c 400) #t) #f)
            ((= (divides? c 4) #t) #t)
        (else #f)
    )
)