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