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


if(@prefix = split //, 'qzjxkvpbgfywcmuldrshnioate')
{
   if(@code = map
         {
            '($a, $b) = '.
            '($x =~ /^\s*(' . (pop @prefix) . ')' .
               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($x ne '')
            {
               if( $i = -1 )
               {
                  while( ++$i <= $#code && $i >= 0 )
                  {
                     if( eval $code[$i] )
                     {
                        if( (print $a), ($x = $b), $i = -1 ) {}
                     }
                  }
               }
               if( $i > $#code )
               {
                  if( (print substr $x, 0, 1), ($x = substr $x, 1) ) {}
               }
            }
            if( print "\n" ) {}
         }
      }
   }
}