#!/usr/bin/perl -w

use strict;

my $APKC = "BCDFGHJKMPQRTVWXY2346789";

$_ = uc <>;

s/[-\W]*//g;

print index $APKC, $_ for split //, $_;