(define timestamp->seconds
  (match-lambda*
   ((#f) 0)
   (((and (hours minutes seconds)
          (? (lambda (l) (every number? l)))))
     (+ (* hours 3600)
        (* minutes 60)
        seconds))))