(define (define? e) (cond ((atom? e) #f) ((atom? (car e)) (eq? (car e)(quote define))) (else #f)))