(define (squares b)
  (define (oppervlakte-vierkanten zijde)
    (* zijde 4))
  (if (zero? b)
      1
      (+ b (squares b (- b 1)))))