on *:input:#:if ($left($1,1) != /) { msg # $regsubex(q,$1-,/(\S+)/g,$iif(\1 ison #,\1,$+($chr(3),4,\1,$chr(15)))) | haltdef }