alias bkw {
  if ($active !ischan) {
    return
  }
  var %i = $len($1-)
  var %d = 1
  while (%d <= %i) {
    set %cw $+($mid($1-,%d,1),%cw)
    inc %d
  }
  msg $active %cw
  unset %cw
}