print join "\t",(map { $_->{NAME}.':'.$_->{ID}} @{$types{TYPE1}}),"\n";
print join "\t",(map { $_->{NAME}.':'.$_->{ID}} @{$types{TYPE2}}),"\n";