- (units (list (cons (/ seconds 60 60 24) "days")
- (cons (mod (/ seconds 60 60) 24) "hours")
- (cons (mod (/ seconds 60) 60) "minutes")
- (cons (mod seconds 60) "seconds"))))
+ (units (list (cons (/ seconds 60 60 24) (riece-mcat "days"))
+ (cons (mod (/ seconds 60 60) 24)
+ (riece-mcat "hours"))
+ (cons (mod (/ seconds 60) 60) (riece-mcat "minutes"))
+ (cons (mod seconds 60) (riece-mcat "seconds")))))