#| BEGIN (Введите свое решение) |#
(define (equal-proc? a b)
  (cond
    ((and (null? a) (null? b)) #t) 
    ((or (null? a) (null? b)) #f)   
    ((and (pair? a) (pair? b))      
     (and (equal-proc? (car a) (car b)) 
          (equal-proc? (cdr a) (cdr b))))
    (else (eq? a b)))) 
#| END |#