#! /usr/bin/perl

use demotic_fasta;

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