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