(de f4-229-2 (Lst)
   (for (L Lst  (cdr L))
      (casq (car L)
         (+
            (casq (cadr L)
               (+ (con L (cddr L)))
               (- (set L '-) (con L (cddr L)))
               (T (pop 'L)) ) )
         (-
            (casq (cadr L)
               (+ (con L (cddr L)))
               (- (set L '+) (con L (cddr L)))
               (T (pop 'L)) ) )
         (T (pop 'L)) ) )
   Lst )