#not complete
print VECTOR "radix";
while ($index < $total)
{
        print VECTOR " 1";
        $index++;
}
$index = 0;

print VECTOR "\n", "vname";

#print VECTOR $item;

foreach $item (sort keys %inputTable)
{
        #print " ", $item;
        print VECTOR " ", $item;
}
print VECTOR "load ";
while ($index < $DFFcount)
{
        #print " loadip", $index;
        print VECTOR " loadip", $index;
        $index++;
}
print VECTOR "\n";



close INPUT;
close VECTOR;