lustrums ( x -- duration )

Vocabulary

calendar

Inputs

x

an object

Outputs

duration

an object

Definition

USING: accessors kernel math ;

IN: calendar

: lustrums ( x -- duration ) instant swap 5 * >>year ;