#lang racket

(require "utils.rkt")

(define (count-leaves t)
  (accumulate +
              0
              (map (lambda (x) (if (pair? x) (count-leaves x) 1)) t)))