on *:input:#:{
  if !$istok(/ ! ., $left($1-,1), 32) {
    msg # $regsubex($1-,/(\S+)/g, $iif(\1 ison #, $+($chr(2),\1,$chr(15)), \1))
    halt
  }
}