#!/usr/bin/env tclsh

if { $argc <= 1 } {
  puts "Usage: hm <address> <port>"
  return
}

set address  irc.synirc.net
set port     6667
set nickname honorable_machine
set ident    rckwy
set gecos    tcl
set channel  #smash

set conn [socket $address $port]

puts  $conn "NICK $nickname"
flush $conn
puts  $conn "USER $ident \"\" \"\" :$gecos"
flush $conn
puts  $conn "JOIN $channel"
flush $conn

while { [set input [gets $conn]] != -1 } {
  puts $input
}

close conn