(if last-watered
(let* ((now (current-seconds))
(1day (* 24 3600))
- (remaining-pc (quotient (* 100 (- 1day (- now last-watered))) 1day))
+ (remaining-pc (quotient (* 100 (max 0 (- 1day (- now last-watered)))) 1day))
(filled (quotient remaining-pc 4))
(unfilled (- 25 filled)))
(print "["