on *:Input:*:{
  if ($left($1,1) !isin !@/) {
    if (%wab == on) {
      say $wab($1-)
      haltdef
    }
  }
}

alias wab {
  tokenize 32 $1-
  var %a = $0
  var %b = 1
  while (%a >= %b) {
    var %c = %c $+($upper($left($($+($chr(36),%b),2),1)),$lower($right($($+($chr(36),%b),2),-1)))
    inc %b
  }
  return %c
}