#!/usr/bin/perl -w
use strict ;
use POSIX ;

my %bin ;
my %size;
my %value ;
my $binwidth = $ARGV[0] ;

chomp(my $prog = `basename $0`) ;

if ($#ARGV < 0)
{
  print "\nUsage: ./histo.pl.pl <bin width>\n" ;
  exit ;
}



while ( <STDIN> ) {
   my @line= split  ;
   my $element = $line[0] ;
   $value{ceil(($element+1)/$binwidth)-1}++
}



foreach my $i (sort {$a<=>$b} keys %value)
{
   my $bin = $i*$binwidth ;
   print "$bin $value{$i}\n" ;
}