(deftest bryan-bin-search ()
  (check
    (= 3 (bin-search 3 #(0 1 2 3 4 5 6 7 8 9)))
    (null (bin-search 4 #(0 1 2 3 5 6 7 8 9)))))