transcendental-lisp/lisp/paydays.lisp

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

)