(define (cycle? lst)
  (let ((visited '()))
    (define (visit x)
      (cond ((null? x) #f)
            ((memq x visited) #t)
            (else
             (set! visited (cons x visited))
             (visit (cdr x)))))
    (visit lst)))