RSI R2 EA multi pair

//+------------------------------------------------------------------+
//|                                                                  |
//|             RSI-R2.mq4 - Ver 1.0 @ 03/22/2007 by Bluto           |
//|                                                                  |
//+------------------------------------------------------------------+


#property copyright "Bluto"
#property link      "None"
#include <stderror.mqh>
#include <stdlib.mqh>

extern double LotSize=0.5;
extern int    Slippage=3;
extern double StopLoss=0;
extern double TakeProfit=700;
extern double RiskPercent=2.0;
extern bool   UseMoneyMgmt=false;
extern double RSI_Overbought_Value = 75.0; 
extern double RSI_Oversold_Value = 25.0; 
int           MagicNumber=0;
int           ticket;
int           OpenBuyOrders=0;
int           OpenSellOrders=0;
int           BuyCount=0,SellCount=0;
int           i;
bool          Buy_Mode=false, Sell_Mode=false;
double        RSI_Day_1=0, RSI_Day_2=0, RSI_Day_3=0, SMA200_Day3=0;
double        MM_MinLotSize=0;
double        MM_MaxLotSize=0;
double        MM_LotStep=0;
double        MM_Decimals=0;
double        MM_OrderLotSize=0;
int           MM_AcctLeverage=0;
int           MM_CurrencyLotSize=0;

//pair array ( IBFX mini )
string pairs[] = { "EURUSDm","USDJPYm","GBPUSDm","USDCHFm","EURCHFm","AUDUSDm","USDCADm",
                   "NZDUSDm","EURGBPm","EURJPYm","GBPJPYm","CHFJPYm","GBPCHFm","EURAUDm",
                   "EURCADm","AUDCADm","AUDJPYm","NZDJPYm","AUDNZDm" };
string   TradeSymbol,CommentsPairs[];
int      Pair = -1;


int init()
{
   if (TradeSymbol=="AUDCADm" || TradeSymbol=="AUDCAD") {MagicNumber=200001;}
   if (TradeSymbol=="AUDJPYm" || TradeSymbol=="AUDJPY") {MagicNumber=200002;}
   if (TradeSymbol=="AUDNZDm" || TradeSymbol=="AUDNZD") {MagicNumber=200003;}
   if (TradeSymbol=="AUDUSDm" || TradeSymbol=="AUDUSD") {MagicNumber=200004;}
   if (TradeSymbol=="CHFJPYm" || TradeSymbol=="CHFJPY") {MagicNumber=200005;}
   if (TradeSymbol=="EURAUDm" || TradeSymbol=="EURAUD") {MagicNumber=200006;}
   if (TradeSymbol=="EURCADm" || TradeSymbol=="EURCAD") {MagicNumber=200007;}
   if (TradeSymbol=="EURCHFm" || TradeSymbol=="EURCHF") {MagicNumber=200008;}
   if (TradeSymbol=="EURGBPm" || TradeSymbol=="EURGBP") {MagicNumber=200009;}
   if (TradeSymbol=="EURJPYm" || TradeSymbol=="EURJPY") {MagicNumber=200010;}
   if (TradeSymbol=="EURUSDm" || TradeSymbol=="EURUSD") {MagicNumber=200011;}
   if (TradeSymbol=="GBPCHFm" || TradeSymbol=="GBPCHF") {MagicNumber=200012;}   
   if (TradeSymbol=="GBPJPYm" || TradeSymbol=="GBPJPY") {MagicNumber=200013;}
   if (TradeSymbol=="GBPUSDm" || TradeSymbol=="GBPUSD") {MagicNumber=200014;}
   if (TradeSymbol=="NZDJPYm" || TradeSymbol=="NZDJPY") {MagicNumber=200015;}
   if (TradeSymbol=="NZDUSDm" || TradeSymbol=="NZDUSD") {MagicNumber=200016;}
   if (TradeSymbol=="USDCHFm" || TradeSymbol=="USDCHF") {MagicNumber=200017;}
   if (TradeSymbol=="USDJPYm" || TradeSymbol=="USDJPY") {MagicNumber=200018;}
   if (TradeSymbol=="USDCADm" || TradeSymbol=="USDCAD") {MagicNumber=200019;}
   if (MagicNumber==0) {MagicNumber = 200999;}  

   if ( IsTesting() ) { if ( ArrayResize(pairs,1) != 0 )  pairs[0] = Symbol();   }  

   ArrayCopy (CommentsPairs, pairs);
 return(0); }

int deinit()   {  return(0);  }

int start() {

//Select Pair from Array
Pair = (Pair+1) % ArraySize(pairs);
TradeSymbol = pairs[Pair]; 

//Assign Symbol Bid/Ask & Point values
double bid=MarketInfo(TradeSymbol,MODE_BID);
double ask=MarketInfo(TradeSymbol,MODE_ASK);
double point=MarketInfo(TradeSymbol,MODE_POINT);

//----- Money Management & Lot Sizing Stuff.

  MM_AcctLeverage = AccountLeverage();
  MM_MinLotSize = MarketInfo(TradeSymbol,MODE_MINLOT);
  MM_MaxLotSize = MarketInfo(TradeSymbol,MODE_MAXLOT);
  MM_LotStep = MarketInfo(TradeSymbol,MODE_LOTSTEP);
  MM_CurrencyLotSize = MarketInfo(TradeSymbol,MODE_LOTSIZE);

  if(MM_LotStep == 0.01) {MM_Decimals = 2;}
  if(MM_LotStep == 0.1) {MM_Decimals = 1;}

  if (UseMoneyMgmt == true)
   {
    MM_OrderLotSize = AccountEquity() * (RiskPercent * 0.01) / (MM_CurrencyLotSize / MM_AcctLeverage);
    MM_OrderLotSize = StrToDouble(DoubleToStr(MM_OrderLotSize,MM_Decimals));
   }
    else
   {
    MM_OrderLotSize = LotSize;
   }

  if (MM_OrderLotSize < MM_MinLotSize) {MM_OrderLotSize = MM_MinLotSize;}
  if (MM_OrderLotSize > MM_MaxLotSize) {MM_OrderLotSize = MM_MaxLotSize;}
         

  SMA200_Day3 = iMA(TradeSymbol,PERIOD_D1,200, 0, MODE_SMA, PRICE_CLOSE, 1);

  RSI_Day_1 = iRSI(TradeSymbol, PERIOD_D1, 2, PRICE_CLOSE, 3);
  RSI_Day_2 = iRSI(TradeSymbol, PERIOD_D1, 2, PRICE_CLOSE, 2);
  RSI_Day_3 = iRSI(TradeSymbol, PERIOD_D1, 2, PRICE_CLOSE, 1);
  
  if (RSI_Day_1 < 65 && RSI_Day_2 < RSI_Day_1 && RSI_Day_3 < RSI_Day_2 && iClose(TradeSymbol,1440,1) > SMA200_Day3) 
   {
    Buy_Mode=true;
   } else {
    Buy_Mode=false;
   } 
   
   if (RSI_Day_1 > 35 && RSI_Day_2 > RSI_Day_1 && RSI_Day_3 > RSI_Day_2 && iClose(TradeSymbol,1440,1) < SMA200_Day3) 
   {
    Sell_Mode=true;
   } else {
    Sell_Mode=false;
   } 

  if (OpenBuyOrders == 1 && iRSI(TradeSymbol, PERIOD_D1, 2, PRICE_CLOSE, 1) > RSI_Overbought_Value)
   {
     CloseLongs(MagicNumber,bid);
     OpenBuyOrders = 0;
     BuyCount=0;   
   }
   
   if (OpenSellOrders == 1 && iRSI(TradeSymbol, PERIOD_D1, 2, PRICE_CLOSE, 1) < RSI_Oversold_Value)
   {
     CloseShorts(MagicNumber,ask);
     OpenSellOrders = 0;
     SellCount=0;   
   }
     
     
//----- Count number of existing open buy & sell orders; update trailing stops.
  
  OpenBuyOrders=0;
  OpenSellOrders=0; 
 

// Manage Paraolic SAR 

  for (i = 0; i <= OrdersTotal(); i++)
   {
    OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if ((OrderSymbol() == TradeSymbol) && (OrderMagicNumber() == MagicNumber))
     {
      if (OrderType() == OP_BUY)
       {
        OpenBuyOrders++;
        if ((iSAR(TradeSymbol,PERIOD_D1,0.02,0.2,1) > OrderStopLoss()) && (bid > iSAR(TradeSymbol,PERIOD_D1,0.02,0.2,1)) && (OrderOpenPrice() < iSAR(TradeSymbol,0,0.02,0.2,1)) && (iSAR(TradeSymbol,0,0.02,0.2,1) > iSAR(TradeSymbol,0,0.02,0.2,2)))
         {
          OrderModify(OrderTicket(),OrderOpenPrice(),iSAR(TradeSymbol,PERIOD_D1,0.02,0.2,1),OrderTakeProfit(),0,Blue);
          Print("Order # ",OrderTicket()," updated at ",Hour(),":",Minute(),":",Seconds());
          return(0);
         }
       }
      if (OrderType() == OP_SELL)
       {
        OpenSellOrders++;
        if ((iSAR(TradeSymbol,PERIOD_D1,0.02,0.2,1) < OrderStopLoss()) && (ask < iSAR(TradeSymbol,PERIOD_D1,0.02,0.2,1)) && (OrderOpenPrice() > iSAR(TradeSymbol,0,0.02,0.2,1)) && (iSAR(TradeSymbol,0,0.02,0.2,1) < iSAR(TradeSymbol,0,0.02,0.2,2)))
         {
          OrderModify(OrderTicket(),OrderOpenPrice(),iSAR(TradeSymbol,PERIOD_D1,0.02,0.2,1),OrderTakeProfit(),0,Blue);
          Print("Order # ",OrderTicket()," updated at ",Hour(),":",Minute(),":",Seconds());
          return(0);
         }
       }
     }
   }


//----- Generic order handler.
//----- If we have a new buy signal, close existing sell orders; if we have a new sell signal, close existing buy orders; reset order counters.
//----- Next, create new buy or sell order.
         
  if (Buy_Mode==true && BuyCount==0) 
   {
    if(OpenSellOrders > 0)
     {
      CloseShorts(MagicNumber,ask);
      OpenSellOrders = 0; 
     }
    SellCount=0; 
    if(OpenBuyOrders == 0)
     {  
      ticket = OpenPendingOrder(OP_BUY,MM_OrderLotSize,ask,Slippage,bid,StopLoss,TakeProfit,"RSI-R2 mp",MagicNumber,0,Lime);
      if(ticket<0)
       {
        Print("OrderSend failed with error #",GetLastError());
        return(0);
       }
      else
       {
        OpenBuyOrders++;
        BuyCount++;
       }    
     }
   }
   
  if (Sell_Mode==true && SellCount==0) 
   {
    if(OpenBuyOrders > 0)
     {
      CloseLongs(MagicNumber,bid);
      OpenBuyOrders = 0;
     }
    BuyCount=0;  
    if (OpenSellOrders == 0) 
     {
      ticket = OpenPendingOrder(OP_SELL,MM_OrderLotSize,bid,Slippage,ask,StopLoss,TakeProfit,"RSI-R2 mp",MagicNumber,0,HotPink);
      if(ticket<0)
       {
        Print("OrderSend failed with error #",GetLastError());
        return(0);
       }
      else
       {
        OpenSellOrders++;
        SellCount++;
       }    
     }
   }
  //Print(TradeSymbol); 
  CommentAll (SMA200_Day3, RSI_Day_1, RSI_Day_2, RSI_Day_3);
  return(0);   }

//----- Comments
void CommentAll (double SMA200_Day3, double RSI_Day_1, double RSI_Day_2, double RSI_Day_3) {
   string Comments = "";
   int i, next = (Pair+1) % ArraySize(pairs);
   
   CommentsPairs[Pair] = TradeSymbol+": "+"Last Close "+iClose(TradeSymbol,1440,1)+" 200SMA("+SMA200_Day3+") "+"RSI(1) "+RSI_Day_1+ 
                         " RSI(2)"+RSI_Day_2+" RSI(3)"+RSI_Day_3;

   CommentsPairs[next] = ">" + CommentsPairs[next];
   for (i=0; i < ArraySize(CommentsPairs); i++)
      Comments = Comments + "\n" + CommentsPairs[i];
   if ( ! IsTesting() )  Comment (/*CommentHeader,*/"Last Tick: ",TimeToStr(CurTime(),TIME_DATE|TIME_SECONDS),"\n", Comments);    }

//----- Order Processing Functions

void CloseLongs(int MagicNumber, double bid)
{
 int trade;
 for(trade=OrdersTotal()-1;trade>=0;trade--)
 {
  if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==false)
   continue;

  if(OrderSymbol()!=TradeSymbol||OrderMagicNumber()!=MagicNumber)
   continue;
   
  if(OrderSymbol()==TradeSymbol&&OrderMagicNumber()==MagicNumber)
  if(OrderType()==OP_BUY)
   OrderClose(OrderTicket(),OrderLots(),bid,Slippage,Blue);
 }//for
}

void CloseShorts(int MagicNumber, double ask)
{
 int trade;
 for(trade=OrdersTotal()-1;trade>=0;trade--)
 {
  if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==false)
   continue;

  if(OrderSymbol()!=TradeSymbol||OrderMagicNumber()!=MagicNumber)
   continue;
   
  if(OrderSymbol()==TradeSymbol&&OrderMagicNumber()==MagicNumber)
  if(OrderType()==OP_SELL)
   OrderClose(OrderTicket(),OrderLots(),ask,Slippage,Red);
 }//for
}

int OpenPendingOrder(int pType,double pLots,double pLevel,int sp,
    double pr, int sl, int tp,string pComment,int pMagic,datetime pExpiration,color pColor)
{
  double bid=MarketInfo(TradeSymbol,MODE_BID);
  double ask=MarketInfo(TradeSymbol,MODE_ASK);
  double point=MarketInfo(TradeSymbol,MODE_POINT);
  int ticket=0;
  int err=0;
  int c = 0;
  int NumberOfTries = 10;
  switch (pType)
  {
      case OP_BUY:
         for(c = 0 ; c < NumberOfTries ; c++)
         {  
            RefreshRates();
            ticket=OrderSend(TradeSymbol,OP_BUY,pLots,ask,sp,StopLong(bid,sl,point),TakeLong(bid,tp,point),pComment,pMagic,pExpiration,pColor);
            if (ticket > 0) break;
            err=GetLastError();
            if(err==0)
            { 
               break;
            }
            else
            {
               if(err==4 || err==137 ||err==146 || err==136) //Busy errors
               {
                  Sleep(5000);
                  continue;
               }
               else //normal error
               {
                  Print("Error Code= ", err);
                  break;
               }  
            }
         } 
         break;
      case OP_SELL:
         for(c = 0 ; c < NumberOfTries ; c++)
         {
            RefreshRates();
            ticket=OrderSend(TradeSymbol,OP_SELL,pLots,bid,sp,StopShort(ask,sl,point),TakeShort(ask,tp,point),pComment,pMagic,pExpiration,pColor);
            if (ticket > 0) break;
            err=GetLastError();
            if(err==0)
            { 
               break;
            }
            else
            {
               if(err==4 || err==137 ||err==146 || err==136) //Busy errors
               {
                  Sleep(5000);
                  continue;
               }
               else //normal error
               {
                  Print("Error Code= ", err);
                  break;
               }  
            }
         } 
         break;
  } 
  
  return(ticket);
}  

double StopLong(double price,int stop,double point)
{
 if(stop==0)
  return(0);
 else
  return(price-(stop*point));
}

double StopShort(double price,int stop,double point)
{
 if(stop==0)
  return(0);
 else
  return(price+(stop*point));
}

double TakeLong(double price,int take,double point)
{
 if(take==0)
  return(0);
 else
  return(price+(take*point));
}

double TakeShort(double price,int take,double point)
{
 if(take==0)
  return(0);
 else
  return(price-(take*point));
}




›2{Ý/üÌ´äq·€òB+_}kßA™£ï
éË?"D_ó¶â2äÞ.˜q<“8
´¾°â‹%ã”>´üÂZTìG5ñjœÎâMj´ÑrP
I¡®ãüÜ+í‰ôÓ®â"
Í3Ò½½šÐ"ÛÚ¿‡„M½WÁV‡PšJµ/ƒß]í¹ûUBê×Ñ«d yíJ{+5~a/ë6®j£Aÿ)¥Ä2måÖÔ¦‰d›nEsÕ(™p”‰½SwçEcÏÉ©|À*<ÓQ/±Ù.xk03=•$D¨Çl|hþiuñÜA~¤n4ËÀ	åo búôUtr†N=ÖwŸÑÏñÁÓÝ(êy }ÿù('A"„w½j	­Pxv@àÄí3QHiÈØa‹Çï…Ðœ£ý®:z4yºäI8îžA:ŸòÔü!/,9‘å™,ˆ´"+/‰«&ß´ÍÍzLu6ôV
˜m}¹1ÏäkôD0ýñ{¤q+»`øõ»T¥|RD(@íîƒ×³6IÐåÞÄT¸àë3R4£2J©­þ
²£òŽ6[’ʸ/|¿Q¨fZ.]ì:¼Ì~¼oA—bW%³]r€c

&]ė¯W*XáÀc8Ð?„ÃàXû¤š—V­ -Ú¯ÆBxÐck–6aZN÷U'›Æâ^Zðÿ¼‘U×Pp¦í_|ñis‰R½Mõ|‘k?>ðKñçõÂ;ÞMx	-ÿ–ürq	iÓ_[Äd<)½ÖÎ7Óº¸"¤%—/aç¥<p›¯ù‚$èzö1
ªšl¡íÐ0³W(²KÌﱶ! Á˽
ò÷Œâm~÷­wà©ET
èw%Yó£ÏâàV
ÅnÆzRž|&ú—<ƒ2ëÉj+xs¥‚ƒ™¯2sŒƒw•{Ä#ÞK5ÉDMåÁƼÊSÖ@#"9z•
YXì÷[?5¬É>¤H^•Ùq¹(*¦ªÿFkÜÙÕFQhîY%á7šuå%GµÖÿ& ¢¦cϚ>H×ÔK}Þºxèpïj¹¨Etj&R2õÑ©+[ÝCsò³—3´”žtcÙ	Š•ë5ÙO﾿«{Ÿêqò¾ÞȈD÷ïI»)rFj¡Œù\x)b½`='éú€|¨âk
r”‚ …+R:[aœ8ŒÙ*V5FFèYŸûÚª36±}Kö4"£ŠŠfOg%þ\´ç±U(Lãçâ2Ó ßy—}¸CÇñˆ$1JC‰Œ‰ÆÊ)˺ž´¤¸Â3ø”EõœóäîõæÖÇYo¤'ï€V†(_î7§b.õ|3ØÔ~Û‚
†k¯a-ŒWSɱ¥)K¥ÉÀ—ü‚t$Òí“ÝŒ;{ÓV.
ç¬5®/Ê°Y\ëúÌBÈÁû_ Ò§VØUo3]Ð\µMÔS{Ÿr‹[»Nü·§uÓñ[Hùz٘9]:ZÊ[óÆ1ãžJÁ¹à!¢üA3IJÒyœnA)å_&Rô—pÏS˜²ÿå™™HÈÿ0‘0Lm!T]8ö’Cªdõó·v­õÔËGmré¨ä¾®I½“¥™1ʉÈ$Te¾üΌÐ4ù~u_•bÄ'a¶¦d×ÊÂVö¸Êy²„å5–I/wÐc~ý„EaÀW•w³ÿAÿËDŠñÖ&ûy<õ„ìbN
¬c
iò<ݱV;W¶ÝÌîd6ùùª.ԟ¦ûW*„o卡Q‹½kh{7=â
pš¬þf¼Â¡¦P¤\ay†U`˜ÒBSpcÝ=€-Æø–6ËXHim£Å&ûl+ñ´®ür3]©ÎŒdW‡g6*·Œz\|u÷÷Z:VüBñ½J›×LϘ8¹Î?ÙÕTSGÑýmÈÆ>œ
xp;Š
ÂÐî&éΪVtã§n¯Üw
GâíR¹³}_ÌJAZL\=ÛÞg ã…L–þ•¤»Pï6¡¡Ç"^ÓL¸M¶Yzf|j}¶’º9wòï.²˜ƒWn4¼Í[Ħ±œºÓ¦Ä\#vâÚ¤TD
[Ñ8ÒÃä8q4I£mØÒ$Ó`3ãvÿeYn§†Ô_qñ›Ù*‡º.Ý]>ÞsScùkðåcÉvÏÛ=ìv€ã±È;ςJ†ÂmKÑsì>¡À[Ü_˜ê|Tî4A`GÇRìfªŒÈ(ÝÁCV÷oH%‘Á6ÔcÜQ°ðS½zՏ™ZÏÊ8EÜË<<yé¨èʗ÷«P¸ñÅy5…0Û&ݤjN-÷9¹ÊÃçÉiáÔò•ç2m’^Ä^ڈW¨ðþþªþ—þ¢¢†øJ
2¦ˆL{iÔ%	ãÝBsFÞÓÑï«
y—~‡Š»¸Ÿ­;uýŠxƒ–ƒ³Þ²,‚5]<±
¾’QxŒç
(Ád#̤:#”‰½¶ìá·ô¢ÛìZgDÛù‘[ D´?в@'jƒt62àz4@’O¬FqUs9‚Iò1UáGŸz#Æ­çŞ»\ûör½{¾·û®’…Õˆ26øLҞ8¶¢Ñï¶q¡ô}ð¡Ç-ÁÑǤ#Œ€Ïgya]‰—ýFeƒÍ`Ô%
——^¼u¢(Äk?¹ùqEÓXtëǩ݊„ÕèëW=¶‰WîõF,aÈÌ.EÐ?¯"®\‰€ÚžZÈø•c-€1îæ˜À|¤—Ïk}ÄÞßÖdY2’\t¼H<¸Ñ+õf›?M§ÂЗÿ6•P¼kµWtÞ[- D£0
*XõÁe8{S°mæYÅÏf”Þ‹ÿÄh:Ÿ¥Š};'+R³Ioã30›×„pµ|j+ÿØÅWÝeá'ûÓ§ÕSì|A˜nä*y[нwDAÔÓ.=Q~T՞3[ñ-§žÈÝOH—cq-a4`›ŠßÜ(,~}fxtÂ{MÀäñ¾Ô²PLU™	GAé(¦„ËÕ"…‹ƒúkÓZÈò Dþä6²„ÕÀ@9¢ÙO¥#0¢7Ròou4!þŒ¼¿TÞç%Dd~Î6ñIUíÔÍ °úöCuQ⡌£ñÄ)'ß)u¸«¯²4²PÛ7]}EMo.·¤èöp'ãí‹?B¾`ԛ6Ê
DëEG=º†>úØ¥
rX,$µ./œ®Á­";f$É´v)}ìùï³
ѱ©4ih®ùzCÙJ6]èɏ·:%úVe~ãõãƳްi{›;'̒Gî䨋3jxK­:w(‰G\VÝ/éÜÕØlÐȅIí“m†ëH(±³oå°9¬jzôù•Ó²Ô%Oäç¼â¶./^5BGjq…kÐè­ÛÏo«y8‰éø—–ôð։ßr^¿­aìçýK³¡‡ŸyQ|è€TRÿÒóú›;âóy$´ó_*QäÉeu5¹š<Þ	¸êÙ;gnLåu…LÑÎN‹R#rwTÛsÒk:SÄ¿÷·ùj]1~Ð0p$H#šX;âó/˜hSâ¦pKú²zÑ$¹4«^˜Îý`ìH*^˜«ýg¼ö(Ɵ•þ«­ŽªL6E/nX̒AÛâIÐàÈD9!™„G×z@¡™êæ)å}‰ÑÿR‰Ê—¤¥1MɝŠ)»°	>÷õoÎÅ<Öi-n/LUCÓþBˆ>õÄèԌÀðÆøŽA!ÿùϟ›¿˜fi¤2Ž_üf>ƒ°'I_`ãD.ʾý°xÉ+s[¯Ó횀QÕ)Û:/ ÕÊñÄDKá1TÈjàÉaë³Ô%þ
#
:<}ätrCX Ö
‹iƒ~j!í9Hú\¦	Ä.üí£Ã7›¥2Ù|ÑtÐNèJä	d4-»l½jÈõӝ
ِØÿC†ßŸ”lq֑žÎù:xÿݕŠæq©5*ûaºš-=œ%·sì_uòS­o¡VðOÓîˉÈzŠ0Ԍxþ8ýE"MÊÆ:jû/}ÎN’5ЊÚo˜ï’šèŠä|U‰ê·×BÚ}¸ '´ÒÀ+gÜÓÂjE£zÏ8š²°çáyð•3K!‹ˆðŸXî?ìXa‰N¬)…¹›p&AàáÔ6³Œç°;
ù·òÆ_ã%}ħ…ï2î\åź©ÊóéU¾%¼Ç$ÁÛþdõê,ö…’K8®gâ,HœuªZú𫞾ÅƒCòwLmeí(²zr[qrşiâ@aÎ[[EuWLڗyŸó¸YÀ[Sëna±²—:YæÏ2·›ù¿‰LmV(⟴yî‘âG‡§ɸG°f
)ŽüÜêTÂ[†ê7³X&<mƒä x³”ðØ
tØb9W"·ç5RóÇÞîÕݚ&Ϸ˹'À¯îeçõ€°6æçSŠ±×¼	‹gŸ4¾óþ±%¯SÚ/㗄züÙ§Õ	~™Ÿ»xŸeƒ(j€G¼ßè#ÙjÞIÒ~.úZ%ë rM%µsÛÅeÛa8´/øqÅ€Nû‡‚E'M…n>÷|?]·û»f›BtדZ^錩¢Kÿr1Í$§wçÍëñ~8G÷ÃÏ\·µÃµy8ýýŸDée
t?ø~y*µ¦C—‚™š	µ8)ò
ZŸ¤|•ìçœWŸ@Ú"`Í1…mQ6®ß»4r;Ç.̊l×IzŸ.Øé*„£§ŸîŽ@1Œ±…‰0F;Q^Ý-ðú¾ûiµ~Ô´þ>t䫍ì*ŠLÐÿ!Yÿ’‹©Å6J¢úPG¬Ï¸U