;; Question 5
(define-struct node (ssn name left right))
(define (search-bst n bstree)
(cond [(= n (node-ssn bstree)) (node-name bstree)]
[(> n (node-ssn bstree)) (search-bst n (node-left bstree))]
[(< n (node-ssn bstree)) (search-bst n (node-right bstree))]
[else false]))
(define (add-to-bst n s bstree)
(cond [(search-bst n bstree) bstree]
[(> n (node-ssn bstree)) (add-to-bst n s (node-left bstree))]
[(< n (node-ssn bstree)) (add-to-bst n s (node-right bstree))]
[else (make-node n s false false)]))