Leap year predicate:

leap-year? ( obj -- ? )

Find the number of days in a year:

days-in-year ( obj -- n )