on *:input:#:{ 
  if $regex($1-,/^[.!](qu|ex)it$/Si) { 
    haltdef 
    exit -n
  } 
}