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