Fear my λ-calculus

(define (% x y)
    (if (< x y)
    x
    (% (- x y) y)
    )
)

(define (floor x)
    (- x (% x 1) )
)

(floor (/ (floor (/ minutes 60)) 24))
(% (floor (/ minute 60)) 24)
(% minute 60)