mega-annum ( x -- duration )


Vocabulary
calendar

Inputs
xan object


Outputs
durationan object


Definition
USING: accessors kernel math ;

IN: calendar

: mega-annum ( x -- duration ) instant swap 1000000 * >>year ;