/colors {
  tokenize 136 $regsubex($replace($str($1-|,1),$chr(124),$chr(136)),/(.)/g,$+($chr(3),$base($r(2,15),15,15,2),\1)) | say $( $* )
}