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