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 
  }
}