Joy (the programming language) can be very pretty. Qsort: DEFINE qsort == [small] [] [uncons [>] split] [enconcat] binrec.