tarea 5, 2, pliega

; reduce una lista aplicando operador binario de izq a der
; utilizando como op1 elementos de la lista y op2 el segundo argumento
; o el resultado
(define pliega
    (lambda (func op2 list)
        (if (not (null? list))
            (pliega func (func (car list) (op2)) (cdr list))
            op2
        )
    )
)