alias wordsearch {
  if (($1 == off) && (%primword != $null)) {
    unset %primword
    unset %primword1
    var %u = 0
    while (%u < %word0) {
      inc %u 1
      unset %word [ $+ [ %u ] ]
    }
    unset %word0
  }
  set %primword $1
  var %u = 0
  while (%u < %word0) {
    inc %u 1
    unset %word [ $+ [ %u ] ]
  }
  unset %word0
}
alias ding {
  if (%word0 == $null) { set %word0 0 }
  if (%word0 != $null) { inc %word0 1 }
  var %primword1 = $1
  var %u = 0
  while (%u < $len(%primword1)) {
    inc %u
    if (%u == 1) { var %blah = $left(%primword1,1) }
    else { var %blah = %blah $+ _ $+ $mid(%primword1,%u,1) }
  }
  var %BLAH = $replace(%blah,_,$chr(32))
  tokenize 32 %blah
  var %primword2 = %primword
  var %u = 0
  while (%u < $len(%primword1)) {
    inc %u 1
    if (* $+ $ [ $+ [ %u ] $+ ] * !iswm %primword2) { unset %word [ $+ [ %word0 ] ] | dec %word0 1 | halt }
    if (* $+ $ [ $+ [ %u ] $+ ] * iswm %primword2) {
      var % [ $+ [ %u ] ] = $count(%primword2,$ [ $+ [ %u ] ] )
      if ($count(%primword2, $ [ $+ [ %u ] ]) > 0) { 
        if ($count(%primword1, $ [ $+ [ %u ] ]) <= % [ $+ [ %u ] ]) { set %word [ $+ [ %word0 ] ] %word [ $+ [ %word0 ] ] $+ $ [ $+ [ %u ] ] }
        else { unset %word [ $+ [ %word0 ] ] | dec %word0 1 | halt }
      }
      if ($count(%primword2, $ [ $+ [ %u ] ]) == 0) { unset %word [ $+ [ %word0 ] ] | dec %word0 1 | halt }
      if ($len(%word [ $+ [ %word0 ] ]) == $len(%primword1)) {
        var %h = 0
        while (%h < $calc(%word0 - 1)) {
          inc %h 1
          if (%word [ $+ [ %h ] ] == %word [ $+ [ %word0 ] ]) { unset %word [ $+ [ %word0 ] ] | dec %word0 1 | halt }
        }
      }
    }
  }    
}