#!/usr/bin/perl
while(<>){
    chomp;
    my ($id,$n,$type) = split(' ',$_);
    next unless $id =~ /IPR/;
    $id =~ s/IPR/IPR:/;
    print "[Term]\n";
    print "id: $id\n";
    print "synonym: \"$n\" RELATED [$id]\n";
    print "subset: $type\n";
    print "\n";
}