Untitled

;;   Question 4

(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]))