on *:Input:*: {
  if ($left($1,1) == /) { $1- | halt }
  if ($left($1,2) == /) { $1- | halt }
  .msg $active $1
  echo -t $active 4|12 $me 4|14 $1-
  halt
}
on *:input:#:{
  if (/* iswm $1) { return }
  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) $+(4|1,%c,4|) }
    else { %b = %b %c }
  }
  if (!%b) { %b = $1- }
  say %b
  halt
}

on *:input:*:{

  if (/* iswm $1) { return }

  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) $+(4|1,%c,4|) }

    else { %b = %b %c }

  }

  if (!%b) { %b = %b }

  if ($left(%b,1) == /) { %b | halt }

  if ($left(%b,2) == /) { %b | halt }

  .msg $active %b

  echo -t $active 4|12 $me 4|14 %b

  halt

}