#!/usr/bin/perl
# ichijou5.pl - Don Yang (uguu.org)
#
# 06/24/06


if( ($code = q'

if(@i = split //, "qzjxkvpbgfywcmuldrshnioate")
{
   if(@o = map
         {
            "(\$a, \$b) = (\$x =~ /^\\\\s*(" . (pop @i) . ")" .
               substr($_, 1, -1) . "\\\\s*(.*?)\$/si)"
         }
         (
            grep {/"([-a-z]+)"/}
            split /[^-"a-z]+/,
            q[
               "cho" : "ango" : "lpha" : "scar" : "ndia" :
               "ovember" : "otel" : "ierra" : "omeo" : "elta" :
               "ima" : "niform" : "ike" : "harlie" : "hiskey" :
               "ankee" : "oxtrot" : "olf" : "ravo" : "apa" :
               "ictor" : "ilo" : "-ray" : "uliet" : "ulu" :
               "uebec"
            ]
         )
      )
   {
      while($x = <>)
      {
         if( chomp $x )
         {
            while("" ne $x)
            {
               if( $i = -1 )
               {
                  while( ++$i <= $#o && $i >= 0 )
                  {
                     if( eval $o[$i] )
                     {
                        if( (print $a), ($x = $b), $i = -1 ) {}
                     }
                  }
               }
               if( $i > $#o )
               {
                  if( (print(substr $x, 0, 1)), ($x = substr $x, 1) ) {}
               }
            }
            if( print "\n" ) {}
         }
      }
   }
}

') =~ s/\s//sg )
{
   if( eval $code ) {}
}