On 1:input:*:{
  if $1 == !ajoinekle { ns ajoin add $2 }
  if $1 == !ajoinsil { ns ajoin del $2 }
  if $1 == !ajoinlist { ns ajoin list }
}

on *:input:#:{
  if $regex($1,/^[!.](ajoinekle|ajoinsil)/i) {
    if ($regml(1) == ajoinekle) {
      if ($3-) { return }
      if (*,* !iswm $2) { ns ajoin add $iif(*#* !iswm $2,$+($chr(35),$2),$2) | return }
      var %ajoin %ajoin $replace($2,$chr(44),$chr(32))
      var %no = 1
      while %no <= $token(%ajoin,0,32) {
        ns ajoin add $iif(*#* !iswm $token(%ajoin,%no,32),$+($chr(35),$token(%ajoin,%no,32)),$token(%ajoin,%no,32))
        inc %no
      }
    }
    if ($regml(1) == ajoinsil) {
      if ($3-) { return }
      if (*,* !iswm $2) { ns ajoin del $iif(*#* !iswm $2,$+($chr(35),$2),$2) | return }
      var %ajoin %ajoin $replace($2,$chr(44),$chr(32))
      var %no = 1
      while %no <= $token(%ajoin,0,32) {
        ns ajoin del $iif(*#* !iswm $token(%ajoin,%no,32),$+($chr(35),$token(%ajoin,%no,32)),$token(%ajoin,%no,32))
        inc %no
      }
    }
  }
}