#!/usr/bin/perl

my $f = shift;
open(F,$f) || die $f;
while(<F>) {
    if (/^id: (\S+)/) {
        $id = $1;
    }
    elsif (/^namespace: (\S+)/) {
        $ns{$id} = $1;
    }
    
}
close(F);

while(<>) {
    if (/(GO:\d+)/) {
        print "$ns{$1}\t$_";
    }
    else {
        warn($_);
        print;
    }
}