(define (position x L)
  (cond ((empty? L) #f)
	((not (member? x L)) #f)
	((equal? x (first L)) 1)
	(else (+ 1 (position x (bf L))))))