on 1:input:#:{
  var %color = $rand(1,15)
  while (%color == 8) { var %color = $rand(1,15) }
  if ($left($1,1) isletter) { msg $active  $+ %color $+ $left($1,1) $+  $+ $right($1,$calc($len($1) - 1)) $2- | halt }
}