set temp [open "banlist.txt" r]
while {[eof $temp] != 1} {
    set ban [gets $temp]
    newban $ban bot spammer
}