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