Miscellany

alias descramble {

  var %line.counter = 1
  while (%line.counter <= textfile.txt) {

    var %read.from.file = $read(textfile.txt, %line.counter)

    if ($len($1) == $len(%read.from.file)) {
      var %letter.checker = 1

      while (%letter.checker <= $len($1)) {

        if (* $+ $right($left($1, %letter.checker),1) $+ * !iswm %read.from.file) { var %letter.checker = 9999998 }
        var %read.from.file = $remove.1(%read.from.file, $right($left($1, %letter.checker),1))
        inc %letter.checker
        if (%letter.checker == $calc($len($1) +1) { /msg $me %read.from.file | halt }
      }
    }
    inc %line.counter
  }
}



alias removefirst {
  var %removethese = $2, %string = $1, %i = 1, %l = $len(%removethese)
  while (%i <= %l) {
    !.echo -q $regsub(%string,/ $+ $mid(%removethese,%i,1) $+ /,,%string)
    inc %i
  }
  return %string
}