From: No_spamming@noWhere_7073.org   
      
   On 6/3/2024, B. Pym wrote:   
      
   > Let's sort by the penultimate character.   
   >   
   > : get-ch ( cadr n -- chr ) drop 11 + c@ ;   
   >   
   > mylist :noname count get-ch swap count get-ch swap < ; sort   
      
   : get-ch ( adr -- chr )  12 + c@ ;   
      
   mylist :noname get-ch swap get-ch swap < ; sort   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)