Aobayama_dropout.rb

                    eval$s=%w{a="UVcAMIVJ                                  
            ZAHEiGSA                     DDVBECUQF                         
       AADG                                        CICFCD                  
   DQC                     J    CF                    FCAACFCJCFCDEQCL     
CHD      AC        FB     KB   CBB                MB         BN     CKBBC  
JA     GC         KB     BG   DBEB                BD           JK       BBC
CB     C          I  A GCKCBJFGFJBC B             BD          B CB         
      IA          G CKVCCC   C    B GDD         DBCBIAGBLC F  JJ CD        
      OB          BC CHAGBMCGH     PICEEC     GAECKDBC] HD D   F  H        
      AE          DBCBHIfLBACIJClBDEDAG  CM  BU HPCHCB   AOG   h  E        
      J           ";     Aobayama_         =t   =[32.chr]*897; l  =0       
      ;            s=      dropout               =%(eval$  s=%w    {#      
    $s          }*" ")                            .chars;   (a+     "CBA").
byte   s  {       |c|s,t=t                                     ,s;c.downto 
  (66){$><         <s                                           .   shif   
      t;            (                    l+=1)%7               5=       =0 
              &&puts                                       }}}*         ""