bind pub lo|lo ${PUBCHAR}add proc_adduser

proc adduser {n u h c text} {
global who
set who [lindex $text 0]
adduser $who $who
}