#!/usr/bin/perl
use strict;
open(IN,$ARGV[0])||die

my %seqid_seq;
my %seqid_len;

my @sizes= qw ( 0 100 500 1000 5000 10000 50000 );

my $firstline=<IN>;
chomp  $firstline; my $id=$firstline;my $seq;
while(my $line=<IN>){
	if($line=~/^>/){
		$seqid_seq{$id}=$seq;
		$seqid_len{$id}=length($seq);
		chomp $line;
		$id=$line;
		$seq="";
	}else{
		chomp $line;
		$seq.=$line;
	}
}

		$seqid_seq{$id}=$seq;
		$seqid_len{$id}=length($seq);

my %size_contigs;

foreach my $range (@sizes){
	foreach my $id (keys %seqid_len){

		if($seqid_len{$id}>=$range){

			$size_contigs{$range}++;
		}
	}
}

foreach my $size(sort{$a <=>$b }keys %size_contigs){
	print $size."\t".$size_contigs{$size}."\n";
}