You can also use $regsubex for looping along with various colors in each word, making the spam more fun:
alias colors { tokenize 136 $regsubex($replace($str($1-|,14),$chr(124),$chr(136)),/(.)/g,$+($chr(3),$base($r(2,15),15,15,2),\1)) | say $( $* ) }