#! /usr/bin/perl

use demotic_h2;

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