(define (finishShow startTime minutes)
  (exactTime (list (car startTime) (+ (cadr startTime) minutes))))

(define (exactTime listOfTime)
  (if (>= (cadr listOfTime) 60) (exactTime (list (+ (car listOfTime) 1) (- (cadr listOfTime) 60)))
                                listOfTime))

(define (laterThan s1 s2)
  (let* ((timeS1 (finishShow (cadr s1) (caddr s1)))
         (timeS2 (finishShow (cadr s2)  (caddr s2)))
         (hourS1 (car timeS1))
         (hourS2 (car timeS2))
         (minutesS1 (cadr timeS1))
         (minutesS2 (cadr timeS2)))
  (cond ((> hourS1 hourS2) s1)
        ((< hourS1 hourS2) s2)
        ((> minutesS1 minutesS2) s1)
        (else s2))))

(define (maxOfShows l)
  (if (null? l) '("" (0 0) 0)
  (laterThan (car l) (maxOfShows (cdr l)))))