on *:INPUT:*:{
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
  msg $active $regsubex($regsubex($1-,/(.)/g,\1),/(\S+)/g,$iif(($strip(\1) ison # || $strip(\1) == $active),$+(•,$strip(\1),•) ,$replace(\1-,A,12A,a,12à,b,12ß,c,12¢,d,12d,e,12é,f,12f,h,12h,i,12i,k,12k,l,12L,m,12m,n,12n,o,12o,p,12p,q ,12q,r,12r,s,12s,t,12†,u,12µ,v,12v,w, 12w,x,12×,y,12y,z,12z,ı,12ı,İ,12i,ş,1 2ş,Ş,12ş,ç,12¢,Ç,12¢,ğ,12q ,Ğ,12q,g,12q,ü,12ü,Ü,12ü,ö,12ö,Ö,12Ô,! ,4!,?,4¿,< ,12«,>,12»,-,,-,,:,4:,',`,`,')))
  halt
  :halt
  halt
  :son
}

#yaziturkce on
on 1:input:*:{
  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
  if ($1- == isnum) { goto end }
  var %a 0, %b, %c, %d, %e, %f
  while (%a < $numtok($1-,32)) {
    inc %a
    %c = $gettok($1-,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4•1 ,%c, 4•) }
    else {
      if (%a == $numtok($1-,32)) {
        %d = $+($right(%c,..1),,,)
        %f = $right(%d,2)
      }
      %e = $replacecs($regsubex(%c,/(?=^| )(.)/g,$+( 12, $+ $upper(\1)|,)),a,a,b,ß,c,c,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,n,ñ,o,o,p,p,q,¶,r,r,s,š,t,†,u,µ,v,v,w,w ,x,×,y,ÿ,z,z,ı,ı,İ,ï,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)
      %b = %b $+(%e,%f)
    }
  }
  if (!%b) { %b = $1- }
  else { say %b }
  halt
  :end
}