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