on *:input:*: {
  if ( $left($1,1) != /) && ($active != Status Window) { 
    say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
    halt
  }
}

 on *:input:*: { 
  if $left($1,1) != / { 
    var %1 = $1-  
    var %2 = $regsub(%1, /()/g, $chr(2)\1, %1)  
    say $replacecs(%1,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,†,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)   
    haltdef 
  } 
}