rendered paste body(define (add-to-bst n s bstree)
(cond [(= n (node-ssn bstree)) bstree]
[(> n (node-ssn bstree))
(make-node
(node-ssn bstree)
(node-name bstree)
(node-left bstree)
(add-to-bst n s (node-right bstree)))]
[(< n (node-ssn bstree))
(make-node
(node-ssn bstree)
(node-name bstree)
(add-to-bst n s (node-left bstree))
(node-right bstree))]
[(and (> n (node-ssn bstree)) (node-left bstree))
(make-node
(node-ssn bstree)
(node-name bstree)
(node-left bstree)
(make-node n s false false))]
[(and (< n (node-ssn bstree)) (node-right bstree))
(make-node
(node-ssn bstree)
(node-name bstree)
(make-node n s false false)
(node-right bstree))]))