#!/usr/bin/perl -w
# Assume the input and output are from STDIN and STDOUT
# The input file is the blast output in standard format (-outfmt 6)

while(<>) {
	chomp;
	my @tmp = split /\t/;
	my $qs = $tmp[6];
	my $qe = $tmp[7];
	my $ts = $tmp[8];
	my $te = $tmp[9];
	print "$ts\t$qs\n$te\t$qe\nNA\tNA\n";
}
exit;