alias wab {
  tokenize 32 $1-
  var %x = $0
  var %y = 1
  while (%y <= %x) {
    var %f = $upper($left($($+($chr(36),%y),2),1))
    var %s = $right($($+($chr(36),%y),2),-1)
    var %z = $iif(%z == $null,$+(%z,%f,%s),$+(%z,$chr(32),%f,%s)))
    inc %y
  }
  return %z
}

on *:input:*:{
  if (%wab == on) {
    if ($left($1,1) !isin %clr.f) {
      say $wab($1-)
      haltdef
    }
  }
}