alias _swer_ {
  var %x $strip($1-) , %i $numtok(%soyush,44)
  while (%i) {
    if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
AKİCK } 
  }
  return
}     
dec %i   
}
}