gistfile1.txt

proc welcome args {
    set i [lsearch -exact $args to]
    set w [bt to irc]
    if {$args eq ""} {
        set n [bt [name]]
    } elseif {$i == -1} {
        set n [bt [join $args]]
    } else {
        set n [bt [join [lrange $args 0 [expr $i-1]]]]
        set w [bt to [join [lrange $args [expr $i+1] end]]]
    }   
    return [join [list $n [bt welcome] $w] "\n \n"]
}