: d ( duration -- duration' )
    duration>seconds
    seconds-per-year /mod
    0 swap
    seconds-per-day /mod
    seconds-per-hour /mod
    seconds-per-minute /mod
    <duration> ;