 #-----------------------------------------------------------------------------------------------------------
 $reorder = ( S ) =>
   return $ ( [ glyph, fncr, formula, idx, ], send ) =>
-    glyph = XNCHR.as_chr glyph
+    # glyph = XNCHR.as_chr glyph
     send [ fncr, glyph, formula, ]
 
 #-----------------------------------------------------------------------------------------------------------

    send [ glyph, fncr, formula, idx, ]

#-----------------------------------------------------------------------------------------------------------
$sort = ( S ) =>
  return D.$sort ( a, b ) =>
    [ a_glyph, a_fncr, a_formula, a_idx, ] = a

#-----------------------------------------------------------------------------------------------------------
$transform = ( S ) =>
  return D.combine [
    $normalize_glyph            S
    $unique                     S
    $query                      S
    $add_fncr                   S
    $sort                       S
