tob.rkt

#lang racket

(define connect (let-values ([(in out) (tcp-connect "irc.codetalk.io" 6667)])
  (begin
    (displayln "NICK tob" out)
    (displayln "USER tob 8 * : tob the bot" out)
    (listen in out))))

(define (listen in out) (begin
  (define ss (getline in))
  (if (ping? ss) 
    (begin (pong ss out) (displayln "ponging"))
    '())
  (displayln ss) 
  (listen in out)))

(define (getline in) 
  (let ([s (read-line in)])
    (if (eof-object? s)
      (error "connection failed")
      (string-split s))))

(define (ping? ss) (eq? (car ss) "PING"))

(define (pong ss out)
  (displayln (string-append "PONG " (car (cdr ss))) out))

> (enter! "tob.rkt")
  [re-loading /home/klrr/Sandbox/lisp/tob.rkt]
; listen: undefined;
;  cannot reference an identifier before its definition
;   in module: "/home/klrr/Sandbox/lisp/tob.rkt"