WeBlowg Side

 (define (eval-and exp)
   (define (ite conditions)
     (cond [(null? conditions) #t]
       [(car conditions) (ite (cdr conditions))]
       [else #f]))
   (ite  exp))
 
 (define (eval-or exp)
   (define (ite conditions)
     (cond [(null? conditions) #f]
       [(car conditions) #t]
       [else (ite (cdr conditions))]))