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