#!/usr/bin/perl
while($line=<>){
    $pass.=$line;
}
#print $pass;
$i=length($pass)-1;
#print $i;
while($i>=0){
#    $num=$num*(52**$i)+vec($pass,$i--,8);
    $num.=vec($pass,$i--,8);
#    print "$num\n";
}
$res="a";
$i=0;
$a=vec("a",0,8);
$A=vec("A",0,8);
$zr=vec("0",0,8);
while($num){
    $d=$num%62;
    if($d<=25){
	vec($res,8*$i++,8)=$d+$a;
    }elsif($d<=51) {
        vec($res,8*$i++,8)=$d+$A-26;
    }else{
        vec($res,8*$i++,8)=$d+$zr-52;
    }
    $num=int $num/62;
}
print "$res\n";
