(defun tree (maxlistnum  listnum)

          (let ((localmax 0) (buff ()) (way ()) (localtree (cdr listnum)))
            (if (not (eq (cdr listnum) () ))
             ((setq way (car listnum))
             (return
                (loop
                (if (eq localtree ()) (return (list '(localmax) '(way))))
                (setq buff (tree (car localtree)))
                (setq localtree (cdr localtree))
                    (if eq(buff '1) (+1 localmax)
                    (if (> (car buff) localmax) ((setq localmax (car buff)) (setq way (cdr buff))))
                )
              )
                )
             )
            (return 1) )
          )
          )