(define (timestamp->seconds timestamp)
  (fold + 0 (map * (or timestamp '()) '(3600 60 1))))