(list*
                  (list "Overall" *pastes* (- (paste-universal-time (first *pastes*))
                                              (paste-universal-time (car (last *pastes*)))))
                  (list "Last 30 days"
                        (remove-if #'(lambda (e)
                                       (< (paste-universal-time e)
                                          (- (get-universal-time)
                                             (* 60 60 24 30))))
                                   *pastes*)
                        (* 60 60 24 30))
                  (list "Last week"
                        (remove-if #'(lambda (e)
                                       (< (paste-universal-time e)
                                          (- (get-universal-time)
                                             (* 60 60 24 7))))
                                   *pastes*)
                        (* 60 60 24 7))
                  (list "Last day"
                        (remove-if #'(lambda (e)
                                       (< (paste-universal-time e)
                                          (- (get-universal-time)
                                             (* 60 60 24))))
                                   *pastes*)
                        (* 60 60 24))