(defun bryan-bst ()
  (let (bst)
    (setf bst (bst-insert 2 bst #'<))
    (setf bst (bst-insert 4 bst #'<))
    (setf bst (bst-insert 1 bst #'<))
    (check
      (bst-find 2 bst #'<)
      (not (bst-find 3 bst #'<)))))