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
  }