on *:input:*:{
  if (/* !iswm $1) {
    var %x 1, %color1 = 04, %color2 = 11, %text = $chr(3)
    while (%x <= $len($1-)) {
      %text = %text $+ $iif($right(%x,1) isin 24680,%color1,%color2) $+ $mid($1-,%x,1) $+ $chr(3)
      inc %x
    }
    msg $active %text
    halt
  }
}