(setq foldl (lambda (f z xs)                            \
              (cond ((atom xs)       (f z xs))                \
                    ((null xs)       z)                       \
                    ((null (cdr xs)) (f z (car xs)))          \
                    (true            (foldl f (f z (car xs)) \
                                            (cdr xs))))))    \
(setq only2+ (lambda (a b) (only2+ a b))) \
(setq + (lambda xs (foldl only2+ 0 xs)))  \

                } else if(car == _symbol("+")) {

                } else if(car == _symbol("only2+")) {

                    logg_dbg("_eval3 +", "adding " a " and " b, d)

                    logg_dbg("_eval3 only2+", "adding " a " and " b, d)