(let ((first-payday-day 6)
(leap-year 0)
(days-in-year 365)
(two-weeks 14))
(+ 1
(/ (- (+ days-in-year
leap-year)
first-payday-day)
two-weeks))
)