hadd reorder

alias t.order {
  var %x $hfind(tellz,$+([*],$1,[*]),0,w)
  hfree tellz1
  var %y 1
  while (%y <= %x) {
    var %z $hfind(tellz,$+([*],$1,[*]),%y,w)
    var %w $hget(tellz,%z)
    hadd -m tellz1 %y $remove(%z,$right(%z,3)) $+ $+([,%y,]) %w
    inc %y
  }
  t.write $1
}
alias t.write {
hdel -w tellz $+([*],$1,[*])
 var %x $hget(tellz1,0).item
 while (%x) {
   hadd tellz $hget(tellz1,%x)
   dec %x
  }
}