#!/usr/bin/perl

# Build a char->hex map
for (0..255)
{
    $escapes{chr($_)} = sprintf("%%%02X", $_);
}

sub lisp
{
    my $query = shift;

    $query =~ s/s/th/g

    IRC::command ("/say $query");

    return 1;
}

IRC::register ("lisp", "1.0", "", "");

IRC::add_command_handler ("lisp", "lisp");