channel.kvs
%szFrase[]=$str.split(" ",$0-) %szColor=12 foreach(%var,%szFrase){ %szLen=$integer($str.length(%var)); %szTemp=%szTemp$k(%szColor)$str.mid(%var,0,1)$k(1)$str.mid(%var,1,%szLen)" "; } say %szTemp;
csay.kvs