Anonymous

on *:INPUT:#hmc: {
  if (/ !isin $1) {
    if (: !isin $gettok($1-,$0,32)) {
      if (= !isin $gettok($1-,$0,32)) {
        if (. !isin $gettok($1-,$0,32)) {
          if (; !isin $gettok($1-,$0,32)) {
            if (? !isin $gettok($1-,$0,32)) {
              if (! !isin $gettok($1-,$0,32)) {
                if (_ !isin $gettok($1-,$0,32)) {
                  haltdef
                  msg #hmc $1- $+ ke
                }
              }
              else {
                if ($0 > 1) {
                  haltdef
                  set %str $mid($gettok($1-,$0,32), 1, $calc($len($gettok($1-,$0,32))-1));
                  msg #hmc $gettok($1-,1 - $calc($0 - 1),32) %str $+ ke!
                }
                else {
                  if ($1 != !) {
                    haltdef
                    set %str $mid($1, 1, $calc($len($gettok($1,$0,32))-1));
                    msg #hmc %str $+ ke!
                  }
                }
              }
            }
            else {
              if ($0 > 1) {
                haltdef
                set %str $mid($gettok($1-,$0,32), 1, $calc($len($gettok($1-,$0,32))-1));
                msg #hmc $gettok($1-,1 - $calc($0 - 1),32) %str $+ ke?
              }
              else {
                if ($1 != ?) {
                  haltdef
                  set %str $mid($1, 1, $calc($len($gettok($1,$0,32))-1));
                  msg #hmc %str $+ ke?
                }
              }
            }
          }
        }
        else {
          if ($0 > 1) {
            haltdef
            set %str $mid($gettok($1-,$0,32), 1, $calc($len($gettok($1-,$0,32))-1));
            msg #hmc $gettok($1-,1 - $calc($0 - 1),32) %str $+ ke.
          }
          else {
            if ($1 != .) {
              haltdef
              set %str $mid($1, 1, $calc($len($gettok($1,$0,32))-1));
              msg #hmc %str $+ ke.
            }
          }
        }
      }
    }
  }
}