consider the following factor definition:
:: julian-day-number ( $year $month $day -- n )
14 $month - 12 /i :> $a $year 4800 + $a -
:> $y $month 12 $a * + 3 - :> $m $day 153 $m * 2 + 5 /i +
365 $y * + $y 4 /i + $y 100 /i - $y 400 /i + 32045 - ;