(define (cl:position obj lst) (define pos (lambda (n lst) (cond ((null? lst) #f) ((equal? obj (car lst)) n) (else (pos (+ 1 n) (cdr lst)))))) (pos 0 lst)) ;@