// FOR THOSE OF YOU THAT IMPROVE UPON THIS HERE CODE I ASK YOU ONE THING
// PLEASE POST A COPY UP ON THE FOREX FORUMS FOR YOUR FELLOW TRADERS

#property indicator_chart_window

extern int     mathcalc               =  96;
extern int     Font_Size              = 8;                                             
extern bool    showtext               =  true;
extern bool    showlines              =  true;
extern int     setnumberbarswide    =  100;
extern bool    showshifttext         =  true;
extern bool    showshiftlines        =  true;
extern bool    showcomments           =  false;
extern bool    show33xlines          =  false;
extern color   bml33xcolor           =  DarkSlateGray;
extern int     bml33xstyle           =  0;
extern bool    showcolorframe        =  true;
extern color   MM1Colorx               =  CLR_NONE;//C'7,40,80';
extern color   MM2Colorx               =  C'100,50,60';
extern color   MM3Colorx               =  CLR_NONE;//C'7,40,80';
extern color  mml_clr_m_2_8 = clrMaroon;       // [-2/8] US3
extern color  mml_clr_m_1_8 = clrDimGray;         // [-1/8] US2
extern color  mml_clr_0_8   = clrBlue;      //  [0/8]  US1
extern color  mml_clr_1_8   = clrDimGray;          //  [1/8]  WSR
extern color  mml_clr_2_8   = clrGreen;             //  [2/8]  REV
extern color  mml_clr_3_8   = clrDimGray;       //  [3/8]  BOT
extern color  mml_clr_4_8   = clrBlue;            //  [4/8]  MID
extern color  mml_clr_5_8   = clrDimGray;       //  [5/8]  TOP
extern color  mml_clr_6_8   = clrGreen;             //  [6/8]  REV
extern color  mml_clr_7_8   = clrDimGray;          //  [7/8]  WSR
extern color  mml_clr_8_8   = clrRed;      //  [8/8]  US1
extern color  mml_clr_p_1_8 = clrDimGray;         // [+1/8] US2
extern color  mml_clr_p_2_8 = clrMaroon;       // [+2/8] US3

int    win = 0;
int    Adjust_Side_to_side = 10;
int    Shift_UP_DN = 0;

// ------------------------------------------------------------------------------------------ //
//                            I N T E R N A L   V A R I A B L E S                             //
// ------------------------------------------------------------------------------------------ //

#define FF1x "FF1x"
#define FF2x "FF2x"
#define FF3x "FF3x"
#define FF4x "FF4x"
#define FF5x "FF5x"

int l996 = 0;
int l1004 = 0;
 
double  bml33x[26];
double  dmml = 0,
        dvtl = 0,
        sum  = 0,
        v1x = 0,
        v2x = 0,
        mn = 0.,
        mx = 0.,
        difmxmn,
        x1 = 0.,
        x2 = 0.,
        x3 = 0.,
        x4 = 0.,
        x5 = 0.,
        x6 = 0.,       
        y1 = 0.,
        y2 = 0.,
        y3 = 0.,
        y4 = 0.,
        y5 = 0.,
        y6 = 0.,
        tx = 0.,        
        octave = 0.,
        fractal = 0.,
        range   = 0.,
        finalH  = 0.,
        finalL  = 0.,
        DecNos,
        mmlx[13],
        MathLog2;

string  ln_txt[13], ln_tx[13],  buff_str = "", buff_str2 = "";

int     OctLinesCnt=13, mml_thk=8, mml_clr[13], mml_shft=3,  nTime=0,  CurPeriod=0,
        nDigits=0,
        i=0, frametemp=0, gb=0, gbT=0, mP=0, lperiod=0, d=0,ts=0, mml_wdth[13], x33 = 0, bml33Cnt = 26;

// ------------------------------------------------------------------------------------------ //
//                             I N I T I A L I S A T I O N                                    //
// ------------------------------------------------------------------------------------------ //
int init() {
   
   MathLog2=MathLog(2);
   switch ( Period() )
         {
          case    1: mathcalc =  mathcalc*60.;    setnumberbarswide =  setnumberbarswide*60; tx = 10;  break;
          case    5: mathcalc =  mathcalc*12.;    setnumberbarswide =  setnumberbarswide*12; tx = 20;  break;
          case   15: mathcalc =  mathcalc*4.;     setnumberbarswide =  setnumberbarswide*4;  tx = 20;  break;
          case   30: mathcalc =  mathcalc*2.;     setnumberbarswide =  setnumberbarswide*2;  tx = 20;  break;
          case   60: mathcalc =  mathcalc;        setnumberbarswide =  setnumberbarswide;    tx = 50;  break;
          case  240: mathcalc =  mathcalc;        setnumberbarswide =  setnumberbarswide;    tx = 50;  break;
          case 1440: mathcalc =  mathcalc*0.25;   setnumberbarswide =  setnumberbarswide;    tx = 50;  break;
          case 10080:mathcalc =  mathcalc;        setnumberbarswide =  setnumberbarswide;    tx = 50;  break;
            default: mathcalc =  mathcalc;        setnumberbarswide =  setnumberbarswide;    tx = 50;  break;
         }


//---- indicators
   ln_txt[0]  = "                               [-2/8]";
   ln_txt[1]  = "                     [-1/8]";
   ln_txt[2]  = "               [0/8]";
   ln_txt[3]  = "                [1/8]";
   ln_txt[4]  = "                         [2/8]";
   ln_txt[5]  = "                                   [3/8]";
   ln_txt[6]  = "                                   [4/8]";
   ln_txt[7]  = "                             [5/8]";
   ln_txt[8]  = "                         [6/8]";
   ln_txt[9]  = "                 [7/8]";
   ln_txt[10] = "                [8/8]";
   ln_txt[11] = "                     [+1/8]";
   ln_txt[12] = "                               [+2/8]";
   
//+------------------------------------------------------------------+ 
   
   mml_wdth[0] = 0;
   mml_wdth[1] = 0;
   mml_wdth[2] = 0;
   mml_wdth[3] = 0;
   mml_wdth[4] = 0;
   mml_wdth[5] = 0;
   mml_wdth[6] = 0;
   mml_wdth[7] = 0;
   mml_wdth[8] = 0;
   mml_wdth[9] = 0;
   mml_wdth[10] = 0;
   mml_wdth[11] = 0;
   mml_wdth[12] = 0;
   

  
   ln_tx[0]  = " Extreme Overshoot";
   ln_tx[1]  = " Overshoot";
   ln_tx[2]  = " BUY";
   ln_tx[3]  = " WEAK";
   ln_tx[4]  = " Reversal Major";
   ln_tx[5]  = " Bottom - Trading Range";
   ln_tx[6]  = " Major Support/Resistance";
   ln_tx[7]  = " Top Trading Range";
   ln_tx[8]  = " Reversal Major";
   ln_tx[9]  = " WEAK";
   ln_tx[10] = " SELL";
   ln_tx[11] = " Overshoot";
   ln_tx[12] = " Extreme Overshoot";
   

   mml_shft = 0;
   mml_thk  = 3;


   mml_clr[0]  = mml_clr_m_2_8;//SteelBlue;//Red;
   mml_clr[1]  = mml_clr_m_1_8;//SteelBlue;//Orange;
   mml_clr[2]  = mml_clr_0_8;//SteelBlue;//Aqua;
   mml_clr[3]  = mml_clr_1_8;//SteelBlue;//Yellow;
   mml_clr[4]  = mml_clr_2_8;//SteelBlue;//HotPink;
   mml_clr[5]  = mml_clr_3_8;//SteelBlue;//Lime;
   mml_clr[6]  = mml_clr_4_8;//SteelBlue;//Aqua;
   mml_clr[7]  = mml_clr_5_8;//SteelBlue;//Lime;
   mml_clr[8]  = mml_clr_6_8;//SteelBlue;//HotPink;
   mml_clr[9]  = mml_clr_7_8;//SteelBlue;//Yellow;
   mml_clr[10] = mml_clr_8_8;//SteelBlue;//Aqua;
   mml_clr[11] = mml_clr_p_1_8;//SteelBlue;//Orange;
   mml_clr[12] = mml_clr_p_2_8;//SteelBlue;//Red;
   


   return(0);
  }



int deinit() {

Comment("");
for(i=0;i<OctLinesCnt;i++) {
    buff_str = "mmlx"+i;
    ObjectDelete(buff_str);
    buff_str = "mml_txtx"+i;
    ObjectDelete(buff_str);
    }
    
    //---- Screen Background
   ObjectDelete(FF1x);
   ObjectDelete(FF2x);
   ObjectDelete(FF3x);
   ObjectDelete(FF4x);
   ObjectDelete(FF5x);
   ObjectDelete("Math001x");
   ObjectDelete("Math002x");
   ObjectDelete("Math002bx");
   ObjectDelete("Math002cx");
   ObjectDelete("Math002dx");
   ObjectDelete("Math002ex");
   ObjectDelete("bml3318x");
   ObjectDelete("bml3323x");
   ObjectDelete("bml3318tx");
   ObjectDelete("bml3323tx");
   ObjectDelete("bml337x");
   ObjectDelete("bml337tx");
   ObjectDelete("bml332x");
   ObjectDelete("bml332tx");
   ObjectDelete("pfx");
   ObjectDelete("pftx");
   ObjectDelete("mfx");
   ObjectDelete("mftx");
  
   for(x33=0;x33<bml33Cnt;x33++) {
    buff_str2 = "bml.33x"+x33;
    ObjectDelete(buff_str2);   
    }
        
   return(0);
  }


 
int start(){

   if (StringFind (Symbol(), "JPY", 0) != -1){ DecNos = 2;}
   else if(Symbol()=="XAUUSD" || Symbol()=="XAUUSD"){ DecNos = 1; }
   else if(Symbol()=="XAGUSD" || Symbol()=="XAGUSD"){ DecNos = 2; }
   else { DecNos = 4; } 
    

 
   CreateMMx();
   return(0);
}
void CreateObj(string objNamex, double start, double end, color clr)
   {
   ObjectCreate(objNamex, OBJ_RECTANGLE, 0, Time[0+setnumberbarswide], start, Time[0], end);
   ObjectSet(objNamex, OBJPROP_COLOR, clr);
   }
   void DeleteObjects()
   {
   ObjectDelete(FF1x);
   ObjectDelete(FF2x);
   ObjectDelete(FF3x);
   ObjectDelete(FF4x);
   ObjectDelete(FF5x);
   }
   
void CreateMMx()
   {
   DeleteObjects();
  
   v1x = Low[Lowest(NULL,0,MODE_LOW,mathcalc,0)];
   v2x = High[Highest(NULL,0,MODE_HIGH,mathcalc,0)];
   
   fractal=Determine_Fractal();
      
   range=(v2x-v1x);
   sum=MathFloor(MathLog(fractal/range)/MathLog2);
   octave=fractal*(MathPow(0.5,sum));
   mn=MathFloor(v1x/octave)*octave;
   
   double increment= octave*0.3333;
   if(mn+octave+increment > v2x )    mx=mn+octave; 
   else                              mx=mn+(2.*octave);

   difmxmn=mx-mn;

// calculating xx
    if( (v1x>=(3.*difmxmn/16.+mn)) && (v2x<=(9.*difmxmn/16.+mn)) )                         x2=mn+difmxmn/2.; 
    else                                                                                  x2=0.;

    if( (v1x>=(mn-difmxmn/8.))&& (v2x<=(5.*difmxmn/8.+mn)) && (x2==0.) )                  x1=mn+difmxmn/2.; 
    else                                                                                  x1=0.;

    if( (v1x>=(mn+7*difmxmn/16.))&& (v2x<=(13.*difmxmn/16.+mn)) )                          x4=mn+3.*difmxmn/4.; 
    else                                                                                  x4=0.;

    if( (v1x>=(mn+3.*difmxmn/8.))&& (v2x<=(9.*difmxmn/8.+mn))&& (x4==0.) )                x5=mx; 
    else                                                                                  x5=0.;

    if( (v1x>=(mn+difmxmn/8.))&& (v2x<=(7.*difmxmn/8.+mn))&& (x1 + x2 + x4 + x5 == 0.) )  x3=mn+3.*difmxmn/4.; 
    else                                                                                  x3=0.;

    if( (x1+x2+x3+x4+x5) ==0. )                                                           x6=mx; 
    else                                                                                  x6=0.;
    
    finalH = x1+x2+x3+x4+x5+x6;
// calculating yy
  if( x1>0 )                                     y1=mn;               else  y1=0.;
  if( x2>0 )                                     y2=mn+difmxmn/4.;    else  y2=0.;
  if( x3>0 )                                     y3=mn+difmxmn/4.;    else  y3=0.;
  if( x4>0 )                                     y4=mn+difmxmn/2.;    else  y4=0.;
  if( x5>0 )                                     y5=mn+difmxmn/2.;    else  y5=0.;
  if( (finalH>0.) && ((y1+y2+y3+y4+y5)==0.) )    y6=mn;               else  y6=0.;
  finalL = y1+y2+y3+y4+y5+y6;  
  
double xo = (finalH-finalL);

   for( i=0; i<OctLinesCnt; i++)      mmlx[i] = 0;
   dmml = (finalH-finalL)/8.;

   mmlx[0] =(finalL-dmml*2.); //-2/8
 
 
   for( i=1; i<OctLinesCnt; i++)     mmlx[i] = mmlx[i-1] + dmml;
   for( i=0; i<OctLinesCnt; i++ )
      {
        buff_str = "mmlx"+i;
 
if (showlines) {        
        ObjectDelete(buff_str);
        ObjectCreate(buff_str, OBJ_TREND, 0, Time[0], mmlx[i], Time[0+setnumberbarswide], mmlx[i]);
        ObjectSet(buff_str, OBJPROP_STYLE, STYLE_DOT);
        ObjectSet(buff_str, OBJPROP_WIDTH, mml_wdth[i]);
        ObjectSet(buff_str, OBJPROP_COLOR, mml_clr[i]);
        ObjectSet(buff_str, OBJPROP_BACK, 1);
        ObjectSet(buff_str, OBJPROP_RAY, 0);
        ObjectMove(buff_str, 0, Time[0],  mmlx[i]);
        }//End of show.lines
        
             

if (showtext) {
        buff_str = "mml_txtx"+i;
        ObjectDelete(buff_str);
        ObjectCreate(buff_str, OBJ_TEXT, 0, Time[mml_shft], mml_shft);
        ObjectSetText(buff_str, ln_txt[i]/*+DoubleToStr(mmlx[i],DecNos)*/+ln_tx[i], Font_Size, "MV Boli", mml_clr[i]);//mml_clr[i]);
        ObjectSet(buff_str, OBJPROP_BACK, 0);
        //ObjectMove(buff_str, 0, Time[mml_shft+0],  mmlx[i]+Point*tx);
        ObjectMove(buff_str, 0, Time[mml_shft+0],  mmlx[i]+(Point*tx)/2);   //elie mod in case broker of 4 digits
        }//End of show.text
        
        }//End of i loop
          

   
if (show33xlines) 
      {
      bml33x[0] =   mmlx[0]-((mmlx[1]-mmlx[0])/3.);
      bml33x[1] = ((mmlx[1]-mmlx[0])/3.)+mmlx[0];
      bml33x[2] = ((mmlx[1]-mmlx[0])/3.)*2.+mmlx[0];
      bml33x[3] = ((mmlx[2]-mmlx[1])/3.)+mmlx[1];
      bml33x[4] = ((mmlx[2]-mmlx[1])/3.)*2.+mmlx[1];
      bml33x[5] = ((mmlx[3]-mmlx[2])/3.)+mmlx[2];
      bml33x[6] = ((mmlx[3]-mmlx[2])/3.)*2.+mmlx[2];
      bml33x[7] = ((mmlx[4]-mmlx[3])/3.)+mmlx[3];
      bml33x[8] = ((mmlx[4]-mmlx[3])/3.)*2.+mmlx[3];
      bml33x[9] = ((mmlx[5]-mmlx[4])/3.)+mmlx[4];
      bml33x[10] = ((mmlx[5]-mmlx[4])/3.)*2.+mmlx[4];
      bml33x[11] = ((mmlx[6]-mmlx[5])/3.)+mmlx[5];
      bml33x[12] = ((mmlx[6]-mmlx[5])/3.)*2.+mmlx[5];
      bml33x[13] = ((mmlx[7]-mmlx[6])/3.)+mmlx[6];
      bml33x[14] = ((mmlx[7]-mmlx[6])/3.)*2.+mmlx[6];
      bml33x[15] = ((mmlx[8]-mmlx[7])/3.)+mmlx[7];
      bml33x[16] = ((mmlx[8]-mmlx[7])/3.)*2.+mmlx[7];
      bml33x[17] = ((mmlx[9]-mmlx[8])/3.)+mmlx[8];
      bml33x[18] = ((mmlx[9]-mmlx[8])/3.)*2.+mmlx[8];
      bml33x[19] = ((mmlx[10]-mmlx[9])/3.)+mmlx[9];
      bml33x[20] = ((mmlx[10]-mmlx[9])/3.)*2.+mmlx[9];
      bml33x[21] = ((mmlx[11]-mmlx[10])/3.)+mmlx[10];
      bml33x[22] = ((mmlx[11]-mmlx[10])/3.)*2.+mmlx[10];
      bml33x[23] = ((mmlx[12]-mmlx[11])/3.)+mmlx[11];
      bml33x[24] = ((mmlx[12]-mmlx[11])/3.)*2.+mmlx[11];
      bml33x[25] = ((mmlx[12]-mmlx[11])/3.)+mmlx[12];

        for( x33=0; x33<bml33Cnt; x33++ ){
        buff_str2 = "bml.33x"+x33;
        ObjectDelete(buff_str2);
        ObjectCreate(buff_str2, OBJ_TREND, 0, Time[0], bml33x[x33], Time[0+setnumberbarswide], bml33x[x33]);
        ObjectSet(buff_str2, OBJPROP_STYLE, bml33xstyle);
        ObjectSet(buff_str2, OBJPROP_WIDTH, 0);
        ObjectSet(buff_str2, OBJPROP_COLOR, bml33xcolor);
        ObjectSet(buff_str2, OBJPROP_BACK, 1);
        ObjectSet(buff_str2, OBJPROP_RAY, 0);
        ObjectMove(buff_str2, 0, Time[0],  bml33x[x33]);       
        }}//End of show.33x.lines
           
 
 double plusfranka = mmlx[10]+((mmlx[10]-mmlx[2])*1/3.);
 double minusfranka = mmlx[2]-((mmlx[10]-mmlx[2])*1/3.); 
 
 
 if (showshiftlines) {
 
 ObjectDelete("pfx");
        ObjectCreate("pfx", OBJ_TREND, 0, Time[0], plusfranka, Time[0+setnumberbarswide], plusfranka);
        ObjectSet("pfx", OBJPROP_STYLE, STYLE_DASH);
        ObjectSet("pfx", OBJPROP_COLOR, OrangeRed);
        ObjectSet("pfx", OBJPROP_BACK, 1);
        ObjectSet("pfx", OBJPROP_RAY, 0);
        ObjectMove("pfx", 0, Time[0],  plusfranka);
        
 ObjectDelete("mf");
        ObjectCreate("mfx", OBJ_TREND, 0, Time[0], minusfranka, Time[0+setnumberbarswide], minusfranka);
        ObjectSet("mfx", OBJPROP_STYLE, STYLE_DASH);
        ObjectSet("mfx", OBJPROP_COLOR, OrangeRed);
        ObjectSet("mfx", OBJPROP_BACK, 1);
        ObjectSet("mfx", OBJPROP_RAY, 0);
        ObjectMove("mfx", 0, Time[0],  minusfranka);
        
        }//End of show.shift.lines           
 
 
 
if (showshifttext) {
        
ObjectDelete("pftx");
        ObjectCreate("pftx", OBJ_TEXT, 0, Time[mml_shft], mml_shft);
        ObjectSetText("pftx","                    ["+"Shift"+"]  "+DoubleToStr(plusfranka,DecNos), Font_Size, "MV Boli", OrangeRed);
        ObjectSet("pftx", OBJPROP_BACK, 1);
        //ObjectMove("pftx", 0, Time[mml_shft+1],  plusfranka+Point*tx); 
        ObjectMove("pftx", 0, Time[mml_shft+1],  plusfranka+(Point*tx)/2); //Elie mod
                
ObjectDelete("mftx");
        ObjectCreate("mftx", OBJ_TEXT, 0, Time[mml_shft], mml_shft);
        ObjectSetText("mftx","                    ["+"Shift"+"]  "+DoubleToStr(minusfranka,DecNos), Font_Size, "MV Boli", OrangeRed);
        ObjectSet("mftx", OBJPROP_BACK, 1);
        //ObjectMove("mftx", 0, Time[mml_shft+1],  minusfranka+Point*tx); 
        ObjectMove("mftx", 0, Time[mml_shft+1],  minusfranka+(Point*tx)/2);  //Elie mod
        
        }//End of show.text
                

 if (showcolorframe) {  
       CreateObj(FF1x, mmlx[5], mmlx[7], MM1Colorx);
       CreateObj(FF2x, mmlx[0], mmlx[2], MM2Colorx);
       CreateObj(FF3x, mmlx[10],mmlx[12], MM2Colorx);
       CreateObj(FF4x, mmlx[7], mmlx[10], MM3Colorx);
       CreateObj(FF5x, mmlx[2], mmlx[5], MM3Colorx); 
   
       }//End of show.color.frame 

  

 if (showcomments) {
   
       CreateFX6_Labelsx( "Math002x",10,140); 
       ObjectSetText("Math002x", "Fractal: "+DoubleToStr(fractal,DecNos), 14, "Courier New Bold", Silver);
       CreateFX6_Labelsx( "Math002bx",10,120);
       ObjectSetText("Math002bx", " Octave: "+DoubleToStr(xo,DecNos), 14, "Courier New Bold", Silver);
       CreateFX6_Labelsx( "Math002cx",10,100);
       ObjectSetText("Math002cx", "   Base: "+DoubleToStr(finalL,DecNos), 14, "Courier New Bold", Silver);
       CreateFX6_Labelsx( "Math002dx",10,80);
       ObjectSetText("Math002dx", "  1/8th: "+DoubleToStr(xo/8,DecNos), 14, "Courier New Bold", Silver);
       CreateFX6_Labelsx( "Math002ex",10,60);
       ObjectSetText("Math002ex", "  Frame: "+DoubleToStr(fractal/xo,Digits-5) , 14, "Courier New Bold", Silver);
  
       }//End of show.comments
 
  return;
  }
   
   void CreateFX6_Labelsx( string b6x, int x6x, int y6x ) {
   ObjectCreate( b6x, OBJ_LABEL, 0, 0, 0 );
   ObjectSet( b6x, OBJPROP_CORNER, 2 );
   ObjectSet( b6x, OBJPROP_XDISTANCE,x6x-2);
   ObjectSet( b6x, OBJPROP_YDISTANCE,y6x);
   ObjectSet( b6x, OBJPROP_BACK, false );
   
   }//End of CreateFX6_Labelsx 
   

double Determine_Fractal()
{
   if( v2x<=250000. && v2x>25000. )   return(100000.);
   if( v2x<=25000. && v2x>2500. )     return(10000.);
   if( v2x<=2500. && v2x>250. )       return(1000.);
   if( v2x<=250. && v2x>25. )         return(100.);
   if( v2x<=25. && v2x>12.5 )         return(12.5);
   if( v2x<=12.5 && v2x>6.25)         return(12.5);
   if( v2x<=6.25 && v2x>3.125 )       return(6.25);
   if( v2x<=3.125 && v2x>1.5625 )     return(3.125);
   if( v2x<=1.5625 && v2x>0.390625 )  return(1.5625);
   if( v2x<=0.390625 && v2x>0)        return(0.1953125);
   return(-1.);
}                     
// ==================================
// LET THERE BE ORDER........ XARD777
// AND THERE WILL BE ORDER.....TZUMAN
// I AM UP 1800 PIPS........ISMAEL360
//--------------------------------------------Xard@hotmail.co.uk-----+
/*                                                                   
                              ud$$$**$$$$$$$bc.                          
                          u@**"        4$$$$$$$Nu                       
                        J                ""#$$$$$$r                     
                       @                       $$$$b                    
                     .F                        ^*3$$$                   
                    :% 4                         J$$$N                  
                    $  :F                       :$$$$$                  
                   4F  9                       J$$$$$$$                 
                   4$   k             4$$$$bed$$$$$$$$$                 
                   $$r  'F            $$$$$$$$$$$$$$$$$r                
                   $$$   b.           $$$$$$$$$$$$$$$$$N                
                   $$$$$k 3eeed$$b    XARD777."$$$$$$$$$                
    .@$**N.        $$$$$" $$$$$$F'L $$$$$$$$$$$  $$$$$$$                
    :$$L  'L       $$$$$ 4$$$$$$  * $$$$$$$$$$F  $$$$$$F         edNc   
   @$$$$N  ^k      $$$$$  3$$$$*%   $F4$$$$$$$   $$$$$"        d"  z$N  
   $$$$$$   ^k     '$$$"   #$$$F   .$  $$$$$c.u@$$$          J"  @$$$$r 
   $$$$$$$b   *u    ^$L            $$  $$$$$$$$$$$$u@       $$  d$$$$$$ 
    ^$$$$$$.    "NL   "N. z@*     $$$  $$$$$$$$$$$$$P      $P  d$$$$$$$ 
       ^"*$$$$b   '*L   9$E      4$$$  d$$$$$$$$$$$"     d*   J$$$$$r   
            ^$$$$u  '$.  $$$L     "#" d$$$$$$".@$$    .@$"  z$$$$*"     
              ^$$$$. ^$N.3$$$       4u$$$$$$$ 4$$$  u$*" z$$$"          
                '*$$$$$$$$ *$b      J$$$$$$$b u$$P $"  d$$P             
                   #$$$$$$ 4$ 3*$"$*$ $"$'c@@$$$$ .u@$$$P               
                     "$$$$  ""F~$ $uNr$$$^&J$$$$F $$$$#                 
                       "$$    "$$$bd$.TZUMAN$$$$F $$"                   
                         ?k         ?$$$$$$$$$$$F'*                     
                          9$$bL     z$$$$$$$$$$$F                       
                           $$$$    $$$$$$$$$$$$$                        
                            '#$$c  '$$$$$$$$$"                          
                             .@"#$$$$$$$$$$$$b                          
                           z*      $$$$$$$$$$$$N.                       
                         e"      z$$"  #$$$k  '*$$.                     
                     .u*      u@$P"      '#$$c   "$$c                   
              u@$*"""       d$$"            "$$$u  ^*$$b.               
            :$F           J$P"                ^$$$c   '"$$$$$$bL        
           d$$  ..      @$#                      #$$b         '#$       
           #ISMAEL#   4$$                          ^$$k         '$      
            "$$6""$b u$$                             '$    d$$$$$P      
              '$F $$$$$"                              ^b  ^$$$$b$       
               '$W$$$$"                                'b@$$$$"         
                                                        ^$$$*  
*/