on *:input:*:{ 
 if (/* !iswm $1-) || ($ctrlenter) && ($active != Status Window) { 
   var %a $numtok($1-,32) 
   while (%a > 0) { 
     if ($gettok($1-,%a,32) ison #) { set %b  $gettok($1-,%a,32)  %b }
     else { set %b $gettok($1-,%a,32) %b }
     if (%a == 1) { say %b | unset %b | halt } 
     dec %a
   }
 }
}

on *:input:#:{
  if (/* iswm $1) { return }
  var %a 0, %b, %c
  while (%a < $numtok($1-,32)) {
    inc %a
    %c = $gettok(2$1- ,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) }
    else { %b = %b %c }
  }
  if (!%b) { %b = 2 $1-  }
  say %b | halt
}

on *:input:*:{
  if (/* !iswm $1-) || ($ctrlenter) && ($active != Status Window) {
    var %a $numtok($1-,32)
    while (%a > 0) {
      if ($gettok($1-,%a,32) ison #) { set %b ( $gettok($1-,%a,32) ) %b }
      else { set %b $gettok($1-,%a,32) %b }
      if (%a == 1) { say %b | unset %b | halt }
      dec %a
    }
  }
}