(define (square n)
  (expt 2 (- n 1)))

(define (total)
  (foldl (lambda (a result)
           (+ (square a) result)) 0 (range 10)))

(total)
;; why 511 1/2??