#!/opt/bin/perl
##
## Spam Recognition System -- fully-functional prototype in perl
## (to be recoded with additional functionality in C or Objective-C)
##
## Based on algorithms described by Paul Graham in:
## http://www.paulgraham.com/spam.html
##
## $Id: init.pl,v 1.3 2002/08/22 02:53:07 dgc Exp $
## dgc@uchicago.edu
##

($pdir = $0) =~ s!/[^/]+$!!;
eval 'push(@INC, $pdir); require "lib.pl"';

zerodb();