#!/usr/bin/perl

#use strict ;
use DB_File ;
#use vars qw( %h $k $v ) ;

#use GDBM_File;

tie %h, "DB_File", "diridx.db", O_RDWR, 0640, $DB_HASH;

$dummy = "dummy";
$n = <STDIN>;
chop $n;

#print "$n:$h{$n}\n";
if ($h{$n})
{
	print "$h{$n}\n";
}
else
{
	$d = $h{$dummy};
	delete $h{$dummy};
	$h{"dummy"} = $d+1;
	$h{$n} = $d;
	print "$d\n";
}