alias -l ccbg {
tokenize 32 $1- | var %i = $0 , %r , %w
while (%i) {
%c1 = $+ $hget(amacroset, am_ac1) $+ , $+ $hget(amacroset, am_bgc)
%c2 = $+ $hget(amacroset, am_ac2) $+ , $+ $hget(amacroset, am_bgc)
%w = $($+($,%i),2) | %r = %c1 $+ $upper($left(%w,1)) $+ $c2 $+ $mid(%w,2) $+ %r | dec %i
}
return %r
}