#! /usr/bin/perl -w

my $in="";
my @row=();
my $id="";
my $chr="";
my @ini=();

while (<STDIN>){
    chomp($_);
    if($_=~/####/){
       if($_!~/END/){
	   @row=split(/ /,$_);
	   $id=$row[1];
       }else{
	   @ini=sort(@ini);
	   print "$id\tSPP\t$chr\t$ini[0]\n";
	   $id="";
	   $chr="";
	   @ini=();
       }
   }elsif ($_=~/-Chromosome/){
       @row=split(/ /,$_);
       $chr=$row[2];
   }

    if ($_=~'Exon'){
	@row=split(/ +/,$_);
	push @ini, $row[2];
	push @ini, $row[3];
    }
}