1:- module(irc_client_info, [
    2	get_irc_stream/2,
    3	get_irc_write_stream/2,
    4	get_irc_server/2,
    5	handle_server/2,
    6	connection/7,
    7	min_msg_len/2,
    8	assert_irc_stream/2,
    9	assert_irc_write_stream/2,
   10	assert_connection/7,
   11	assert_irc_server/2,
   12	assert_min_msg_len/2,
   13	assert_handle_server/2
   14]).   15
   16:- dynamic get_irc_stream/2.   17:- dynamic get_irc_write_stream/2.   18:- dynamic connection/7.   19:- dynamic get_irc_server/2.   20:- dynamic min_msg_len/2.   21:- dynamic handle_server/2.   22
   23assert_irc_stream(Id, Stream) :-
   24	asserta(get_irc_stream(Id, Stream)).
   25
   26assert_irc_write_stream(Id, Stream) :-
   27	asserta(get_irc_write_stream(Id, Stream)).
   28
   29assert_connection(Id, Nick, Password, Channels, Hostname, Servername, Realname) :-
   30	asserta(connection(Id, Nick, Password, Channels, Hostname, Servername, Realname)).
   31
   32assert_irc_server(Id, Server) :-
   33	asserta(get_irc_server(Id, Server)).
   34
   35assert_min_msg_len(Id, Length) :-
   36	asserta(min_msg_len(Id, Length)).
   37
   38assert_handle_server(Id, Goals) :-
   39	asserta(handle_server(Id, Goals))