#seslen 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 
  while (%a < $numtok($1-,32)) { 
    inc %a 
    %c = $gettok($1-,%a,32) 
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } 
    else { %b = %b %c } 
  } 
  if (!%b) { %b = $1- } 
  say $replacecs(%b,a.s,Aleykûm selam)
  halt
  :end
}
#seslen end