TUPLE: irc-client profile stream in-messages out-messages chats is-running nick connect reconnect-time is-ready ; : ( profile -- irc-client ) irc-client new swap >>profile >>in-messages >>out-messages H{ } clone >>chats dup profile>> nickname>> >>nick [ latin1 ] >>connect 15 seconds >>reconnect-time ;