#!/usr/bin/perl
use strict;
my $theword = @ARGV[0];
my $A='a';
FINDIT: for (0..99999999){
$A++;
if ($A eq "$theword")
	{print "$_\n";
	last FINDIT;
	}
}