~~~
: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
~~~