(deftest bryan-utility-functions ()
  (check
    (single? (list 'a))
    (not (single? (list 'a 'b)))
    (samep "(A B C D)" (append1 (list 'a 'b 'c) 'd))
    (samep "(0 1 2 3 4 5 6 7 8 9)" (map-int #'identity 10))
    (samep "((1 2 3) 3)" (multiple-value-list (most #'length (list (list 1 2) (list 1 2 3) (list 1)))))))