on *:input:*: {
    if (/* !iswm $1-) && (status win !isin $active) && (@* !iswm $active) {
      /msg $active  $+ $1-
      halt
    }
    unset %csr
    set %csr  $+ $1-
    if ( $chr(47) == $mid(%csr,1,1) ) { %csr | unset %csr* | halt }
    %csr = $replacecs(%csr,ş,$,ç,¢,Ç,¢,ö,ô,b,ß,o,ø,u,µ,t,†)
    say %csr
    unset %csr
    halt
    :halt
    halt
    :son
  }

on *:input:*: {
  if ($left($1,1) != /) && ($active != Status Window) { 
    unset %csr
    set %csr  $+ $1-
    if ($chr(47) == $mid(%csr,1,1) ) { %csr | unset %csr* | halt }
    %csr = $replacecs(%csr,ş,$,ç,¢,Ç,¢,ö,ô,b,ß,o,ø,u,µ,t,†)
    say %csr
    unset %csr
    halt
    :halt
    halt
    :son
  }
}

on *:input:*:{
  if ($left($1,1) != /) && ($1- !isnum) && ($active != Status Window) { 
    haltdef
    var %a $replace($regsubex($1-,/(.)/g,$+(,\1)),ş,$,ç,¢,Ç,¢,ö,ô,b,ß,o,ø,u,µ,t,†)
    say %a 
  }
}