#;1> (use data-structures)
#;2> (define l '(2 4 3 1 5))
#;3> (sort! l <)
(1 2 3 4 5)
#;4> l
(2 3 4 5)
#;5>