Write with channel name ;
alias test {
msg $1 $+(4+,$str(-,4),$str(-,$len($1)),$str(-,$len($2)),4+)
msg $1 $chr(124) $+(,$rand(2,14),$2,,$chr(44)) $+(4,$1,) $chr(124)
msg $1 $+(4+,$str(-,4),$str(-,$len($1)),$str(-,$len($2)),4+)
}

or

Write without channel name ;

alias test {
msg $1 $+(4+,$str(-,2),$str(-,$len($2-)),4+)
msg $1 $chr(124) $+(,$rand(2,14),$2-,) $chr(124)
msg $1 $+(4+,$str(-,2),$str(-,$len($2-)),4+)
}