#!/usr/local/bin/perl

while (<>) {

	chomp;

	@arr = split;
	if (@arr[5] eq 'XSTATS') {

		$xstats{"@arr[6]"} = $_;
		next;

	}
		
	if (@arr[5] eq 'NSTATS') {

		$nstats{"@arr[6]"} = $_;
		next;

	}

}

open (FILE, ">XSTATS") or die "XSTATS\n";
foreach $name (sort bynum keys %xstats) {
	print FILE "$xstats{$name}\n";
}
close FILE;

open (FILE, ">NSTATS") or die "XSTATS\n";
foreach $name (sort bynum keys %nstats) {
	print FILE "$nstats{$name}\n";
}
close FILE;

sub bynum { $a <=> $b; }