Nice code dude, but you can make it shortly with regsubex:
alias kaas { msg # $regsubex($1-, /(.)/g, $+($chr(3),$r(1,15),$chr(44),$r(1,15),\t,$chr(3))) }
just do: "/kaas " in a channel