#lang racket/base
(require irc/core irc/bot)

(on (command-is 'PING)
    (send (msg 'PONG '() (suffix))))