alias st {
  if (!$1) {
    echo -a 4ERROR.
    halt
  }
  var %a1 $r(a,z) $+ a
  var %e1 $r(a,z) $+ e
  var %o1 $r(a,z) $+ o
  var %u1 $r(a,z) $+ u
  var %i1 $r(a,z) $+ i
  var %y1 $r(a,z) $+ y
  var %a2 $r(a,z) $+ $r(a,z) $+ a
  var %e2 $r(a,z) $+ $r(a,z) $+ e
  var %o2 $r(a,z) $+ $r(a,z) $+ o
  var %u2 $r(a,z) $+ $r(a,z) $+ u
  var %i2 $r(a,z) $+ $r(a,z) $+ i
  var %y2 $r(a,z) $+ $r(a,z) $+ y
  var %a3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ a
  var %e3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ e
  var %o3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ o
  var %u3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ u
  var %i3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ i
  var %y3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ y
  var %a %a [ $+ [ $r(1,3) ] ]
  var %e %e [ $+ [ $r(1,3) ] ]
  var %o %o [ $+ [ $r(1,3) ] ]
  var %u %u [ $+ [ $r(1,3) ] ]
  var %i %i [ $+ [ $r(1,3) ] ]
  var %y %y [ $+ [ $r(1,3) ] ]
  var %out $replace($1-,a,%a,e,%e,o,%o,u,%u,i,%i,y,%y)
  var %x $replace($1-,a, $+ $r(a,z) $+ a,e, $+ $r(a,z) $+ e,o, $+ $r(a,z) $+ o,u, $+ $r(a,z) $+ u,i, $+ $r(a,z) $+ i,y, $+ $r(a,z) $+ y)
  echo -a 2Normal:12 $1-
  echo -a 2S-code1:7 %x
  echo -a 2S-code2:7 %out
  echo -a 2Decoder guess on S-code1:11 $dt(%x)
  if ($remove($1-,$chr(44)) == $dt(%x) || $dt(%x) == $1-) {
    echo -a 2Decoder guess on S-code1:9 Correct!
    halt
  }
  echo -a 2Decoder guess on S-code1:4 Wrong!
}
alias stm {
  if (!$1 || $chan == $null) {
    echo -a 4ERROR.
    halt
  }
  var %x $replace($1-,a, $+ $r(a,z) $+ a,e, $+ $r(a,z) $+ e,o, $+ $r(a,z) $+ o,u, $+ $r(a,z) $+ u,i, $+ $r(a,z) $+ i,y, $+ $r(a,z) $+ y)
  msg $chan %x
}
alias stm2 {
  if (!$1 || $chan == $null) {
    echo -a 4ERROR.
    halt
  }
  var %a1 $r(a,z) $+ a
  var %e1 $r(a,z) $+ e
  var %o1 $r(a,z) $+ o
  var %u1 $r(a,z) $+ u
  var %i1 $r(a,z) $+ i
  var %y1 $r(a,z) $+ y
  var %a2 $r(a,z) $+ $r(a,z) $+ a
  var %e2 $r(a,z) $+ $r(a,z) $+ e
  var %o2 $r(a,z) $+ $r(a,z) $+ o
  var %u2 $r(a,z) $+ $r(a,z) $+ u
  var %i2 $r(a,z) $+ $r(a,z) $+ i
  var %y2 $r(a,z) $+ $r(a,z) $+ y
  var %a3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ a
  var %e3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ e
  var %o3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ o
  var %u3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ u
  var %i3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ i
  var %y3 $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ y
  var %a %a [ $+ [ $r(1,3) ] ]
  var %e %e [ $+ [ $r(1,3) ] ]
  var %o %o [ $+ [ $r(1,3) ] ]
  var %u %u [ $+ [ $r(1,3) ] ]
  var %i %i [ $+ [ $r(1,3) ] ]
  var %y %y [ $+ [ $r(1,3) ] ]
  var %x $replace($1-,a,%a,e,%e,o,%o,u,%u,i,%i,y,%y)
  msg $chan %x
}
alias dt {
  var %alfabet abcdefghijklmnopqrstuvwxyz123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
  var %v a e i o u y
  var %i 1
  var %all $replace($1-,$chr(32),_)
  while (%i <= $numtok(%v,32)) {
    var %ii 1
    var %cv $gettok(%v,%i,32)
    unset %e.*
    while (%ii < $numtok(%all,$asc(%cv))) {
      var %g $gettok(%all,%ii,$asc(%cv))
      if (!%e. [ $+ [ $right(%g,1) ] ]) {
        var %e. $+ $right(%g,1) 0
      }
      inc %e. $+ $right(%g,1) 1
      inc %ii
    }

    var %a 1
    var %most $iif(%e.a,%e.a,0)
    var %most2 a
    while (%a <= 26) {
      if (%e. [ $+ [ $mid(%alfabet,%a,1) ] ] > %most) {
        set %most2 $mid(%alfabet,%a,1)
      }
      inc %a
    }
    var %fstr = %fstr %most2 $+ $gettok(%v,%i,32) $+ $chr(44) $+ $gettok(%v,%i,32)
    inc %i
  }
  %endr = $replace(%fstr,$chr(32),$chr(44))
  return $replace(%all,$gettok(%endr,1,44),$gettok(%endr,2,44),$gettok(%endr,3,44),$gettok(%endr,4,44),$gettok(%endr,5,44),$gettok(%endr,6,44),$gettok(%endr,7,44),$gettok(%endr,8,44),$gettok(%endr,9,44),$gettok(%endr,10,44),$gettok(%endr,11,44),$gettok(%endr,12,44),_,$chr(32))
}