(examples-for best

("finds minimum of list"
 (best < '(3 5 4 7 8 2))
 2)

("finds minimum of list of syms"
 (best < '(c g d o p b m e g z m))
 b)

("finds minimum of list of strings"
 (best < '("c" "g" "d" "o" "p" "b" "z" "m"))
 "b")

("finds maximum of list of strings"
 (best > '("c" "g" "d" "o" "p" "b" "y" "m"))
 "y")

("finds maximum of list of syms"
 (best > '(c g d o a p b m e g a z m))
 z)

("finds object with max size"
 (to-string:best (map-compare-f > &size)
            (list { i 0 size 3 }
                  { i 1 size 1 }
                  { i 2 size 7 }
                  { i 3 size 4 }
                  { i 4 size 5 }))
 "{:i=>2, :size=>7}")

("finds maximum of list of numbers"
 (best > '(3 5 4 7 8 2))
 8))

(examples-for min

("finds minimum of list"
 (min 3 5 4 7 8 2)
 2))

(examples-for max

("finds minimum of list"
 (max 3 5 4 7 8 2)
 8))