on 1:input:*:{
  if ($1- == :P) { say :Pp :Pp :Pp | halt } 
  if ($1- == : ) { say 4:1) | halt }
  if ($1- == hö) { say H7öÖ1öÖ7öÖ1öÖ | halt }
  if ($1- == g) { say gidiyorum acil cikis iyi bakın kendinize gittim.. | halt }
  if ($1- == mihi) { say MiHihiHiiHiii | halt }
  if ($1- == öhö) { say öHöhÖöHÖöHÖöÖ | halt }
  if ($1- == mö) { say MöÖöÖöÖöÖ | halt }
  if ($1- == sn) { say sEn nasiLsin? | halt }
  if ($1- == ig) { say iyi GeceLer | halt }
  if ($1- == cr) { say cici ruyaLar | halt }
  if ($1- == tr) { say TatLi RuyaLar. | halt }
  if ($1- == aa) { say Allah Allah. | halt }
  if ($1- == ab) { say Allah Bozmasın | halt }
  if ($1- == ag) { say Allah Göstermesin | halt }
  if ($1- == am) { say Allah Muhafaza | halt }
  if ($1- == ak) { say Allah korusun | halt }
  if ($1- == ehe) { say EhuEhuEhuEhu | halt }
  if ($1- == hehe) { say 54H7e12H7e12H7e12H7e12H7e 5 | halt }
  if ($1- == haha) { say Hahahahahaha | halt }
  if ($1- == muha) { say Muhahahaha | halt }
  if ($1- == zuha) { say Zuahuaheue | halt }
  if ($1- == puha) { say Pohahaoahahaha | halt }
  if ($1- == poha) { say Puhahahahahahha | halt }
  if ($1- == aoe) { say aoeeaueaoeau | halt }
  if ($1- == kiki) { say Kikikikkiki | halt }
  if ($1- == efm) { say eFendim | halt }
  if ($1- == zz) { say zZzzZzzZzzZzzZzzZzzZz zZzzZzzZz | halt }
  if ($1- == mrb) { say Merhaba | halt }
  if ($1- == ndn) { say Neden?? | halt }
  if ($1- == nrd) { say Nerden?? | halt }
  if ($1- == nbr) { say nabeR? | halt }
  if ($1- == hg) { say Hoş geLdin | halt }
  if ($1- == hb) { say Hoş buLdukk | halt }
  if ($1- == ts) { say Tamam saoL | halt }
  if ($1- == ii) { say iyi senden nabeR? | halt }
  if ($1- == slm) { say Selam | halt }
  if ($1- == selam) { say seLam | halt }
  if ($1- == as) { say aLeykum seLam | halt }
  if ($1- == eyw) { say eyvaLLah arkadasLar allaha emanetsiniz. | halt }
  if ($1- == sa) { say seLamun aLeykum | halt }
  if ($1- == was) { say aLeyküm seLam ve RahmetuLLahu ve Berakatü | halt }
  if ($1- == Hello) { say Hello | halt }
  if ($1- == ok) { say Ok | halt }
  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) $+(·,%c,·) }
    else {
      if (%a == $numtok($1-,32)) {
        %d = $+($right(%c,1),..)
        %f = $right(%d,2)
      }
      %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),1))
      %b = %b $+(%e,%f)
    }
  }
  if (!%b) { %b = $1- }
  else { say %b }
  halt
  :end
}