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