(require-extension irc posix)

(define con
  (irc:connection server: "irc.freenode.net" nick: "PongoTwistleton") )

(define (bleep _)
  (print "bleep!")
  (irc:say con (seconds->string (current-seconds)) "#sometemporarychannel") )

(irc:connect con)

(irc:join con "#sometemporarychannel")

(irc:add-message-handler!
 con bleep
 command: "PRIVMSG" body: "time")

(let loop ()
  (condition-case (irc:run-message-loop con debug: #t)
    (ex (i/o net) 
     (irc:disconnect con)
     (print-error-message ex)
     (print "reconnecting ...")
     (irc:connect con)
     (loop))))

(print "exit")