(define matches?
       (lambda (pattern question)
         (cond ((null? pattern) (null? question))
               ((null? question) #F)
               (condition action)
               ((equal? (car pattern) (car question))
                (matches? (cdr pattern) (cdr question)))
               ((equal? (car pattern) '...) #T)
               (else #F))))