on *:INPUT:*:{
  if ($regex($1,/^[\-+].*/Si)) { mode # $left($1,1) $+ $iif($2,$str($right($1,-1),$calc($0 -1)) $2-,$right($1,-1)) }
  elseif ($1 == .k) { cs kick # $2 $iif($3,$3-,No Reason)} }