#!/usr/bin/perl
    open(      
   _,$0)                  
  ;for(                 
 <_>){                   
$;=()
=/ /g
 if (!            
   /^#/)            
    ;($;)                
   ?push     
  @;,$;   
 :push                 
@;,-2
 *16;}               
  shift   
  @;;##                
 print           
lc(##
 chr($       
 _+64)
  )for( 
   @;);#        
  print   
$/;##