------------Лаба---------------
(define (o . funcs)
  (define (_iter funcs)
    (if (not (null? (cdr funcs)))
        (lambda (x) ((car funcs)((_iter (cdr funcs)) x)))
        (lambda (x) ((car funcs) x))))
  (if (null? funcs)
      (lambda (x) x)
      (_iter funcs)))
-----------ДЗ----------------
(define (my-fold-right callable collectable)
  (define default-value #f)
  (define (_iter collectable res)
    (if (not (null? collectable))
        (if (equal? res default-value)
            (if (not (null? (cdr collectable)))
                (_iter (cddr collectable) (callable (cadr collectable) (car collectable)))
                (car collectable))
            (_iter (cdr collectable) (callable (car collectable) res)))
        res))
  (_iter (reverse collectable) default-value))

(define (o . funcs)
  (define (comb f1 f2)
    (lambda (x) (f1 (f2 x))))
  (if (null? funcs)
      (lambda (x) x)
      (my-fold-right comb funcs)))