Here is a smaller efficient way to sort words weither your typing one or several words and want a break down in alphabetical order to see how many a's b's c's are in order or whatever you want to do

Using the left right routine properly

alias alphabetical {
  var %x = 1
  unset %nob
  while (%x <= $len($1-)) {
    %nob = %nob $left($right($1-,%x),1)
    inc %x
  .timer 1 1 //echo -a $!sorttok(%nob,32)

if $reality > $fiction { set %sanity Sane }
Else { echo -a *voices* }