#!/usr/bin/perl
# genformat.pl - Don Yang (uguu.org)
#
# 08/22/03

use strict;
my ($line, $space, $char, $i);


while( $line = <STDIN> )
{
   $space = $char = 0;
   foreach $i ($line =~ /./g )
   {
      if( $i eq ' ' )
      {
         if( $char )
         {
            print chr(ord('A') - 1 + $char);
            $char = 0;
         }
         if( ++$space >= 26 )
         {
            print chr(ord('a') - 1 + $space);
            $space = 0;
         }
      }
      else
      {
         if( $space )
         {
            print chr(ord('a') - 1 + $space);
            $space = 0;
         }
         if( ++$char >= 26 )
         {
            print chr(ord('A') - 1 + $char);
            $char = 0;
         }
      }
   }

   print chr(ord('a') - 1 + $space) if $space;
   print chr(ord('A') - 1 + $char) if $char;
   print '.';
}

print "\n";