#! /usr/bin/perl

use demotic_blast;

while (&demotic_blast::parse(\*STDIN))
{
    &demotic_blast::tblout(\*STDOUT);
}