on *:input:*:{
  if ($left($1-,1) != /) {
    say 0,1 $+ $regsubex($1-,/(.)/g,$+($chr(3),$gettok(04.07.08.09.11.13,$r(1,6),46),\1))
    haltdef
  }
}