# Sorting Numbers on the Stack

This is a recursive approach to sorting values on the stack. I
won't try to claim that this is efficient, but it works.

`~~~``:sort-pair dup-pair lt? &swap if ; `
`:perform-sort sort-pair depth #2 gt? [ &perform-sort dip ] if ; `
`:sort depth &perform-sort times ; `
`~~~`

``````#3 #33 #22 #333 #5 sort `
`````