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