/* Rexx */

Sort : rc ->        
Arg Dest : &A|L : T,
    Src : A|L : <T>,
    Compare : < T, T > : < 1 | -1 | 0 >

...

Return

...

/* * */

Export Sort, MixSort