on 1:INPUT:*:{
  if (/* iswm $1) { return } 
  if (.* iswm $1) { return } 
  if (&* iswm $1) { return } 
  if (!* iswm $1) { return } 
  if (* isin $1) { return } 
  if (http isin $1-) { return }
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)
  var %a 0, %b, %c 
  while (%a < $numtok(%turkce,32)) { 
    inc %a 
    %c = $gettok(%turkce,%a,32) 
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4,%c,1) } 
    else { %b = %b %c } 
  }
  if (!%b) { %b = %turkce }
  say %b
  unset %turkce
  unset %b
  halt
}