# 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
```