(define (prefix x y) (cond ((null? x) #t) ((null? y) #f) ((equal? (car x) (car y)) (prefix (cdr x) (cdr y))) (else #f) ) )