(define (proc-rozbal-list lst log state expr program limit stack)



  (cond
    ((and (equal? (cdr(car expr)) '()) (equal? (cdr expr) '()) ) (proc-eval-expr log state (list (if(not (equal? (car(car expr)) '())) (car(car expr))) ) program limit stack))
    ((equal? (cdr(car expr)) '()) (proc-eval-expr log state (list (if(not (equal? (car(car expr)) '())) (car(car expr))) (if(not (equal? (cdr expr) '())) (cdr expr))) program limit stack))
    ((equal? (cdr expr) '()) (proc-eval-expr log state (list (if(not (equal? (car(car expr)) '())) (car(car expr))) (if(not (equal? (cdr(car expr)) '())) (cdr(car expr)))) program limit stack))

    (else(proc-eval-expr log state (list (if(not (equal? (car(car expr)) '())) (car(car expr))) (if(not (equal? (cdr(car expr)) '())) (cdr(car expr))) (if(not (equal? (cdr expr) '())) (cdr expr))) program limit stack))

  )


  )