RosettaCodeData/Task/Sort-an-integer-array/Scheme/sort-an-integer-array-3.scm

> (import (srfi 95))
> (sort '(9 -2 1 2 8 0 1 2) <)
(-2 0 1 1 2 2 8 9)
> (sort #(9 -2 1 2 8 0 1 2) <)
#(-2 0 1 1 2 2 8 9)