(define (cl:reduce pred? lst) (cond ((null? lst) lst) ((null? (cdr lst)) (car lst)) (else (cl:reduce-init pred? (car lst) (cdr lst))))) ;@