#| BEGIN (Write your solution here) |#
(define (equal-proc? e1 e2)
    (cond
        ((and (not (pair? e1)) (not (pair? e2))) (eq? e1 e2))
        ((and (pair? e1) (pair? e2)) (and (equal-proc? (car e1) (car e2)) (equal-proc? (cdr e1) (cdr e2))))
        (else #f)
    )
)
#| END |#