+(define (handle-line socket line my-username)
+ (match (string-split line #\space)
+ (("PING" rest ...)
+ (irc-display "PONG" socket)
+ (display "PONG'ed back ;)\n"))
+ (_
+ (display line)
+ (newline))))
+
+(define (make-simple-irc-handler handle-line username)