#!/usr/bin/perl

while(<>) {
    next if /^RHEA_ID/;
    chomp;
    my ($id,$d,$parent,$xacc,$xdb) = split(/\t/,$_);
    if (!$done{$id}) {
        print "\n";
        print "[Term]\n";
        print "id: RHEA:$id\n";
        print "subset: $d\n";
        print "is_a: RHEA:$parent\n";
        $done{$id} = 1;
    }
    else {
        die "$last != $id" unless $last eq $id || !$last;
    }
    print "xref: $xdb:$xacc\n";

    $last = $id;
    
}