#!/usr/bin/perl -w

use strict ;


my %bin ;
my %size;
my %value ;
my $max = 0 ;
my $min = 0 ;
my $count ;


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



foreach my $i (sort {$a<=>$b} keys %value)
{
  if ($i > $max)
  {
    $max = $i ;
  }
  if ($i < $min)
  {
    $min = $i ;
  }
}