(define (sozd l)
  (define (iter l ll)
    (if (empty? l) ll
        (iter (cdr l) (if (empty? (car l))ll (cons (car l) ll)))))
  (iter l null))
(define (summ li)
  (define (iter li l)
    (if (empty? li)l
        (iter (sozd (map cdr li))(cons(apply + (map car li)) l))))
  (iter li null))
(define (task2 listi)
  (define (vir listi listi2)
    (if (empty? listi) listi2
        (vir (cdr listi) (cons (reverse (car listi)) listi2))))
  (summ (vir listi null)))

(define (c-l l)
  (if (< l 10) (list l) (cons (remainder l 10) (c-l (quotient l 10)))))
(define (l-c l)
  (define (iter l ll)
  (if (empty? l)ll (iter (cdr l)(+ (* ll 10) (car l))) ))
  (iter l 0))
(define (task4 k)
  (define (sozdlst lst)
    (define x (read))
    (if (equal? x #f) lst
    (sozdlst (cons  (c-l x) lst))))
  (define (zdv li)
    (define (iter li l v)
      (if (and (empty? li) (= v 0)) l
          (if (empty? li) (iter li (cons (remainder v k) l) (quotient v k) )
              (iter (cdr li) (cons (remainder (+  (car li) v) k) l) (quotient (+ (car li) v) k)  ))))
    (iter li null 0))
   (l-c (zdv (reverse (summ (sozdlst null))))))