(define (mktab seq tab) 
  (let ((pmktab (lambda (tab) 
                  (mktab (cdr seq) tab))))
    (if (null? seq)
        tab
        (let ((val (car seq)))
          (if (null? tab)
              (if (> val 0)
                  (let ((ans (list (list val))))
                    (pmktab (list val ans)))
                  (let ((ans (list)))
                    (pmktab (list (list 0 ans)))))
              (let ((sum (+ val (caar tab)))
                    (prev_ans (cadar tab)))
                (if (>= sum val)
                    (let ((ans (cons val prev_ans)))
                      (pmktab (cons (list sum ans) tab)))
                    (let ((ans (list val)))
                      (pmktab (cons (list val ans) tab))))))))))
 
 
(define (find_max tab mans mval)
  (if (null? tab)
      mans
      (let ((tval (caar tab))
            (tans (cadar tab))
            (p_find_max (lambda (p_mans p_mval)
                          (find_max (cdr tab) 
                                    p_mans 
                                    p_mval))))
        (if (> tval mval)
            (p_find_max tans tval)
            (p_find_max mans mval)))))
 
 
(define (maxsub seq)
  (reverse (find_max (mktab seq (list)) (list) 0)))
 
(maxsub (list -1 2 5 -1 3 -2 1))