/* List reverse */                                    /* List reverse, canonical version                */

ListSort : rc ->                                      /* Reverse : rc ->                                */
Arg Src : Array | List : <T>,                         /* Arg Src : Array | List : <T>, Dest : &List : T */
    Dest : &Array | List : T,                         /*                                                */
    . : REVERSE_SORT                                  /* If Src then                                    */
                                                      /*  Dest .= Head                                  */
If Src then                                           /*  After Reverse Tail 'Dest'                     */
 Dest .= Head                                         /*  With Head, Tail from Detach Src Head Tail     */
 After ListSort Tail 'Dest' REVERSE_SORT              /* ;                                              */
 With Head, Tail from Detach Src Head Tail            /*                                                */
;                                                     /* Return                                         */

Return
