#!/afs/athena/contrib/perl5/perl

require 'Travesty.zf';

$/="\n\n";
while(<>){
    &Travesty::parse($_);
    $r = &Travesty::reply($_, 10);
    print "Reply: $r\n";
}
