0. #lang racket
1.  
2. (define t '(10 (5(4(2 ()()) (22()())) (21(15()()) (23 ()()))) (11(6()())(13()()))))
3.  
4. (define (leaf? t)
5.    (and(null?(cadr t)) (null? (caddr t))))
6. (leaf? t)
7.  
8. (define (tree-max t)
9.   (if (null? t)
10.       '()
11.       ((leaf? t)(tree-max (caddr t)))))
12.  
13. (tree-max t)

=>

#f

application: not a procedure;

expected a procedure that can be applied to arguments

given: #t

arguments...:

'()