/* Rexx */

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

...

Return

...

/* * */

Export Sort, MixSort