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


if(@prefix = split //, 'qzjxkvpbgfywcmuldrshnioate')
{
   if(@code = map
      {
         '($a, $b) = '.
         '($x =~ /^\s*(' . (pop @prefix) . ')' . $_ . '\s*(.*?)$/si)'
      }
      qw{
         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" ) {}
         }
      }
   }
}