on *:INPUT:#:{
  if ($left($strip($1),1) != /) {
    msg $target $chr(3) 4,1<>< $+ 0,1 $1-
    haltdef
  }
}