alias txtcol {
  var %i = $len($1-),%o
  while (%i) {
    %o = $+(,$base($r(1,15),10,10,2),$mid($1-,%i,1),%o)
    dec %i
  }
  return %o
}
On *:INPUT:*: {
  if ($1 == ct) {
    if ( /* !iswm $left($1,1) ) && ( $active != Status Window ) {
      msg $active $txtcol($2-)
      halt
    }
  }
}