#!/usr/bin/perl
use strict;

while(<>){
	chomp;
	my @t = split('\t',$_);
	$t[1] =~ s/un/in/g;
	print "$t[0]\t$t[1]\n";
}