#!/usr/bin/tclsh

set unban 1
set nick "serax"
set chan "#blah"

proc query {msg} {
  global unban
  puts "$msg"
  set unban 0
}

puts "MODE $chan +b *$nick*!*@*"
set blah "MODE $chan -b *$nick*!*@*"
after 3000 query {"$blah"}
set blah "blah"

vwait unban