(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))
)