#include <iostream>
#include <fstream>
#include <vector>
#include <array>
#include <bits/stdc++.h>

typedef unsigned char uchar;
/**pour compiler g++ 'main.cpp'   -std=c++11 -Wall -Wextra -o 'executable' ********************/

int repet1;
int repet;
int mem;

void bascule1(int i1,int i2,int i3,int i4,int i5,int i6,int i7,int i8,int i9,int i10,int i11,int i12,int i13,int i14,int i15,int i16,int i17,int i18,int i19,int i20,int i21,int i22,int i23,int i24,int i25,int i26,int i27,int i28,int i29,int i30,int i31,int i32,int i33,int i34,int i35,int i36,int i37,int i38,int i39,int i40,int i41,int i42,int i43,int i44,int i45,int i46,int i47,int i48,int i49,int i50,int i51,int i52,int i53,int i54,int i55,int i56,int i57,int i58,int i59,int i60,int i61,int i62,int i63,int i64,int i65,int i66,int i67,int i68,int i69,int i70,int i71,int i72,int i73,int i74,int i75,int i76,int i77,int i78,int i79,int i80,int i81,int i82,int i83,int i84,int i85,int i86,int i87,int i88,int i89,int i90,int i91,int i92,int i93,int i94,int i95,int i96,int i97,int i98,int i99,int i100,int i101,int i102,int i103,int i104,int i105,int i106,int i107,int i108,int i109,int i110,int i111,int i112,int i113,int i114,int i115,int i116,int i117,int i118,int i119,int i120,int i121,int i122,int i123,int i124,int i125,int i126,int i127,int i128,int i129,int i130,int i131,int i132,int i133,int i134,int i135,int i136,int i137,int i138,int i139,int i140,int i141,int i142,int i143,int i144,int i145,int i146,int i147,int i148,int i149,int i150,int i151,int i152,int i153,int i154,int i155,int i156,int i157,int i158,int i159,int i160,int i161,int i162,int i163,int i164,int i165,int i166,int i167,int i168,int i169,int i170,int i171,int i172,int i173,int i174,int i175,int i176,int i177,int i178,int i179,int i180,int i181,int i182,int i183,int i184,int i185,int i186,int i187,int i188,int i189,int i190,int i191,int i192,int i193,int i194,int i195,int i196,int i197,int i198,int i199,int i200,int i201,int i202,int i203,int i204,int i205,int i206,int i207,int i208,int i209,int i210,int i211,int i212,int i213,int i214,int i215,int i216,int i217,int i218,int i219,int i220,int i221,int i222,int i223,int i224,int i225,int i226,int i227,int i228,int i229,int i230,int i231,int i232,int i233,int i234,int i235,int i236,int i237,int i238,int i239,int i240,int i241,int i242,int i243,int i244,int i245,int i246,int i247,int i248,int i249,int i250,int i251,int i252,int i253,int i254,int i255,int i256,int i257,int i258,int i259,int i260,int i261,int i262,int i263,int i264,int i265,int i266,int i267,int i268,int i269,int i270,int i271,int i272,int i273,int i274,int i275,int i276,int i277,int i278,int i279,int i280,int i281,int i282,int i283,int i284,int i285,int i286,int i287,int i288,int i289,int i290,int i291,int i292,int i293,int i294,int i295,int i296,int i297,int i298,int i299,int i300,int i301,int i302,int i303,int i304,int i305,int i306,int i307,int i308,int i309,int i310,int i311,int i312,int i313,int i314,int i315,int i316,int i317,int i318,int i319,int i320,int i321,int i322,int i323,int i324,int i325,int i326,int i327,int i328,int i329,int i330,int i331,int i332,int i333,int i334,int i335,int i336,int i337,int i338,int i339,int i340,int i341,int i342,int i343,int i344,int i345,int i346,int i347,int i348,int i349,int i350,int i351,int i352,int i353,int i354,int i355,int i356,int i357,int i358,int i359,int i360,int i361,int i362,int i363,int i364,int i365,int i366,int i367,int i368,int i369,int i370,int i371,int i372,int i373,int i374,int i375,int i376,int i377,int i378,int i379,int i380,int i381,int i382,int i383,int i384,int i385,int i386,int i387,int i388,int i389,int i390,int i391,int i392,int i393,int i394,int i395,int i396,int i397,int i398,int i399,int i400,int i401,int i402,int i403,int i404,int i405,int i406,int i407,int i408,int i409,int i410,int i411,int i412,int i413,int i414,int i415,int i416,int i417,int i418,int i419,int i420,int i421,int i422,int i423,int i424,int i425,int i426,int i427,int i428,int i429,int i430,int i431,int i432,int i433,int i434,int i435,int i436,int i437,int i438,int i439,int i440,int i441,int i442,int i443,int i444,int i445,int i446,int i447,int i448,int i449,int i450,int i451,int i452,int i453,int i454,int i455,int i456,int i457,int i458,int i459,int i460,int i461,int i462,int i463,int i464,int i465,int i466,int i467,int i468,int i469,int i470,int i471,int i472,int i473,int i474,int i475,int i476,int i477,int i478,int i479,int i480,int i481,int i482,int i483,int i484,int i485,int i486,int i487,int i488,int i489,int i490,int i491,int i492,int i493,int i494,int i495,int i496,int i497,int i498,int i499,int i500,int i501,int i502,int i503,int i504,int i505,int i506,int i507,int i508,int i509,int i510,int i511,int i512,int i513,int i514,int i515,int i516,int i517,int i518,int i519,int i520,int i521,int i522,int i523,int i524,int i525,int i526,int i527,int i528,int i529,int i530,int i531,int i532,int i533,int i534,int i535,int i536,int i537,int i538,int i539,int i540,int i541,int i542,int i543,int i544,int i545,int i546,int i547,int i548,int i549,int i550,int i551,int i552,int i553,int i554,int i555,int i556,int i557,int i558,int i559,int i560){
unsigned char tabn[244] = {0x0000,0x0001,0x0002,0x0003,0x0004,0x0005,0x0006,0x0007,0x0008,0x0009,0x000A,0x000B,0x000C,0x000D,0x000E,0x000F,0x0010,0x0011,0x0012,0x0013,0x0014,0x0015,0x0016,0x0017,0x0018,0x0019,0x001A,0x001B,0x001C,0x001D,0x001E,0x001F,0x0020,0x0021,0x0022,0x0023,0x0024,0x0025,0x0026,0x0027,0x0028,0x0029,0x002A,0x002B,0x002C,0x002D,0x002E,0x002F,0x0030,0x0031,0x0032,0x0033,0x0034,0x0035,0x0036,0x0037,0x0038,0x0039,0x003A,0x003B,0x003C,0x003D,0x003E,0x003F,0x0040,0x0041,0x0042,0x0043,0x0044,0x0045,0x0046,0x0047,0x0048,0x0049,0x004A,0x004B,0x004C,0x004D,0x004E,0x004F,0x0050,0x0051,0x0052,0x0053,0x0054,0x0055,0x0056,0x0057,0x0058,0x0059,0x005A,0x005B,0x005C,0x005D,0x005E,0x005F,0x0060,0x0061,0x0062,0x0063,0x0064,0x0065,0x0066,0x0067,0x0068,0x0069,0x006A,0x006B,0x006C,0x006D,0x006E,0x006F,0x0070,0x0071,0x0072,0x0073,0x0074,0x0075,0x0076,0x0077,0x0078,0x0079,0x007A,0x007B,0x007C,0x007D,0x007E,0x007F,0x0080,0x0081,0x0082,0x0083,0x0084,0x0085,0x0086,0x0087,0x0088,0x0089,0x008A,0x008B,0x008C,0x008D,0x008E,0x008F,0x0090,0x0091,0x0092,0x0093,0x0094,0x0095,0x0096,0x0097,0x0098,0x0099,0x009A,0x009B,0x009C,0x009D,0x009E,0x009F,0x00A0,0x00A1,0x00A2,0x00A3,0x00A4,0x00A5,0x00A6,0x00A7,0x00A8,0x00A9,0x00AA,0x00AB,0x00AC,0x00AD,0x00AE,0x00AF,0x00B0,0x00B1,0x00B2,0x00B3,0x00B4,0x00B5,0x00B6,0x00B7,0x00B8,0x00B9,0x0BA,0x00BB,0x00BC,0x00BD,0x00BE,0x00BF,0x00C0,0x00C1,0x00C2,0x00C3,0x00C4,0x00C5,0x00C6,0x00C7,0x00C8,0x00C9,0x00CA,0x00CB,0x00CC,0x00CD,0x00CE,0x00CF,0x00D0,0x00D1,0x00D2,0x00D3,0x00D4,0x00D5,0x00D6,0x00D7,0x00D8,0x00D9,0x00DA,0x00DB,0x00DC,0x00DD,0x00DE,0x00DF,0x00E0,0x00E1,0x00E2,0x00E3,0x00E4,0x00E5,0x00E6,0x00E7,0x00E8,0x00E9,0x00EA,0x00EB,0x00EC,0x00ED,0x00EE,0x00EF};

int k1[145]= {i1,i5,i9,i13,i17,i21,i25,i29,i33,i37,i41,i45,i49,i53,i57,i61,i65,i69,i73,i77,i81,i85,i89,i93,i97,i101,i105,i109,i113,i117,i121,i125,i129,i133,i137,i141,i145,i149,i153,i157,i161,i165,i169,i173,i177,i181,i185,i189,i193,i197,i201,i205,i209,i213,i217,i221,i225,i229,i233,i237,i241,i245,i249,i253,i257,i261,i265,i269,i273,i277,i281,i285,i289,i293,i297,i301,i305,i309,i313,i317,i321,i325,i329,i333,i337,i341,i345,i349,i353,i357,i361,i365,i369,i373,i377,i381,i385,i389,i393,i397,i401,i405,i409,i413,i417,i421,i425,i429,i433,i437,i441,i445,i449,i453,i457,i461,i465,i469,i473,i477,i481,i485,i489,i493,i497,i501,i505,i509,i513,i517,i521,i525,i529,i533,i537,i541,i545,i549,i553,i557};
/* int k2[121]= {i2,i6,i10,i14,i18,i22,i26,i30,i34,i38,i42,i46,i50,i54,i58,i62,i66,i70,i74,i78,i82,i86,i90,i94,i98,i102,i106,i110,i114,i118,i122,i126,i130,i134,i138,i142,i146,i150,i154,i158,i162,i166,i170,i174,i178,i182,i186,i190,i194,i198,i202,i206,i210,i214,i218,i222,i226,i230,i234,i238,i242,i246,i250,i254,i258,i262,i266,i270,i274,i278,i282,i286,i290,i294,i298,i302,i306,i310,i314,i318,i322,i326,i330,i334,i338,i342,i346,i350,i354,i358,i362,i366,i370,i374,i378,i382,i386,i390,i394,i398,i402,i406,i410,i414,i418,i422,i426,i430,i434,i438,i442,i446,i450,i454,i458,i462}; */
int k3[145]= {i3,i7,i11,i15,i19,i23,i27,i31,i35,i39,i43,i47,i51,i55,i59,i63,i67,i71,i75,i79,i83,i87,i91,i95,i99,i103,i107,i111,i115,i119,i123,i127,i131,i135,i139,i143,i147,i151,i155,i159,i163,i167,i171,i175,i179,i183,i187,i191,i195,i199,i203,i207,i211,i215,i219,i223,i227,i231,i235,i239,i243,i247,i251,i255,i259,i263,i267,i271,i275,i279,i283,i287,i291,i295,i299,i303,i307,i311,i315,i319,i323,i327,i331,i335,i339,i343,i347,i351,i355,i359,i363,i367,i371,i375,i379,i383,i387,i391,i395,i399,i403,i407,i411,i415,i419,i423,i427,i431,i435,i439,i443,i447,i451,i455,i459,i463,i467,i471,i475,i479,i483,i487,i491,i495,i499,i503,i507,i511,i515,i519,i523,i527,i531,i535,i539,i543,i547,i551,i555,i559};
int k4[145]= {i4,i8,i12,i16,i20,i24,i28,i32,i36,i40,i44,i48,i52,i56,i60,i64,i68,i72,i76,i80,i84,i88,i92,i96,i100,i104,i108,i112,i116,i120,i124,i128,i132,i136,i140,i144,i148,i152,i156,i160,i164,i168,i172,i176,i180,i184,i188,i192,i196,i200,i204,i208,i212,i216,i220,i224,i228,i232,i236,i240,i244,i248,i252,i256,i260,i264,i268,i272,i276,i280,i284,i288,i292,i296,i300,i304,i308,i312,i316,i320,i324,i328,i332,i336,i340,i344,i348,i352,i356,i360,i364,i368,i372,i376,i380,i384,i388,i392,i396,i400,i404,i408,i412,i416,i420,i424,i428,i432,i436,i440,i444,i448,i452,i456,i460,i464,i468,i472,i476,i480,i484,i488,i492,i496,i500,i504,i508,i512,i516,i520,i524,i528,i532,i536,i540,i544,i548,i552,i556,i560};
int k5[145]= {i5,i9,i13,i17,i21,i25,i29,i33,i37,i41,i45,i49,i53,i57,i61,i65,i69,i73,i77,i81,i85,i89,i93,i97,i101,i105,i109,i113,i117,i121,i125,i129,i133,i137,i141,i145,i149,i153,i157,i161,i165,i169,i173,i177,i181,i185,i189,i193,i197,i201,i205,i209,i213,i217,i221,i225,i229,i233,i237,i241,i245,i249,i253,i257,i261,i265,i269,i273,i277,i281,i285,i289,i293,i297,i301,i305,i309,i313,i317,i321,i325,i329,i333,i337,i341,i345,i349,i353,i357,i361,i365,i369,i373,i377,i381,i385,i389,i393,i397,i401,i405,i409,i413,i417,i421,i425,i429,i433,i437,i441,i445,i449,i453,i457,i461,i465,i469,i473,i477,i481,i485,i489,i493,i497,i501,i505,i509,i513,i517,i521,i525,i529,i533,i537,i541,i545,i549,i553,i557};
int k6[145]= {i6,i10,i14,i18,i22,i26,i30,i34,i38,i42,i46,i50,i54,i58,i62,i66,i70,i74,i78,i82,i86,i90,i94,i98,i102,i106,i110,i114,i118,i122,i126,i130,i134,i138,i142,i146,i150,i154,i158,i162,i166,i170,i174,i178,i182,i186,i190,i194,i198,i202,i206,i210,i214,i218,i222,i226,i230,i234,i238,i242,i246,i250,i254,i258,i262,i266,i270,i274,i278,i282,i286,i290,i294,i298,i302,i306,i310,i314,i318,i322,i326,i330,i334,i338,i342,i346,i350,i354,i358,i362,i366,i370,i374,i378,i382,i386,i390,i394,i398,i402,i406,i410,i414,i418,i422,i426,i430,i434,i438,i442,i446,i450,i454,i458,i462,i466,i470,i474,i478,i482,i486,i490,i494,i498,i502,i506,i510,i514,i518,i522,i526,i530,i534,i538,i542,i546,i550,i554,i558};
int k7= i2;

std::vector<std::vector<uchar>> tab = {
	{0x0052,0x0049,0x0046,0x0046,0x00F4,0x00E7,0x004A,0x0000,0x0057,0x0041,0x0056,0x0045,0x0066,0x006D,0x0074,0x0020,0x0010,0x0000,0x0000,0x0000,0x0001,0x0000,0x0001,0x0000,0x0044,0x00AC,0x0000,0x0000,0x0044,0x00AC,0x0000,0x0000,0x0001,0x0000,0x0008,0x0000,0x0064,0x0061,0x0074,0x0061,0x00CF,0x00E7,0x004A,0x0000}};

std::ofstream f ("son-o.wav", std::ios::binary);
	if(!f) {
		std::cerr << "Impossible d'ouvrir le fichier en écriture !" << std::endl;
		//return 1;
	}
	
	
	// entete fichier audio
	for(std::vector<uchar> v : tab) {
		for(uchar c : v) {
			f << c;
		}
	}
	
int mem;
 
	          for (int j=0; j<139; j++)
          {
         
          
          if (((k3[j]-k1[j]) <= 15) && ((k3[j]-k5[j]) <= 15)) {mem =1;}
          if (((k3[j]-k1[j]) > 15)&&((k3[j]-k1[j]) <= 30)&&((k3[j]-k5[j]) > 15)&&((k3[j]-k5[j]) <= 30)){mem =2;}
          if (((k3[j]-k1[j]) > 30)&&((k3[j]-k1[j]) <= 60)&&((k3[j]-k5[j]) > 30)&&((k3[j]-k5[j]) <= 60)){mem =3;}
          if (((k3[j]-k1[j]) > 60)&&((k3[j]-k1[j]) <= 120)&&((k3[j]-k5[j]) > 60)&&((k3[j]-k5[j]) <= 120)){mem =4;}
          if (((k3[j]-k1[j]) > 120) && ((k3[j]-k5[j]) > 120)) {mem =5;}
          if (((k3[j]-k1[j]) <= 15) &&((k3[j]-k5[j]) > 15)&&((k3[j]-k5[j]) <= 30)){mem =6;}
          if (((k3[j]-k1[j]) <= 15) &&((k3[j]-k5[j]) > 30)&&((k3[j]-k5[j]) <= 60)){mem =7;}
          if (((k3[j]-k1[j]) <= 15) &&((k3[j]-k5[j]) > 60)&&((k3[j]-k5[j]) <= 120)){mem =8;}
          if (((k3[j]-k1[j]) <= 15) && ((k3[j]-k5[j]) > 120)) {mem =9;}
          if (((k3[j]-k1[j]) > 15)&&((k3[j]-k1[j]) <= 30)&& ((k3[j]-k5[j]) <= 15)){mem =10;}
          if (((k3[j]-k1[j]) > 15)&&((k3[j]-k1[j]) <= 30)&&((k3[j]-k5[j]) > 30)&&((k3[j]-k5[j]) <= 60)){mem =11;}
          if (((k3[j]-k1[j]) > 15)&&((k3[j]-k1[j]) <= 30)&&((k3[j]-k5[j]) > 60)&&((k3[j]-k5[j]) <= 120)){mem =12;}
          if (((k3[j]-k1[j]) > 15)&&((k3[j]-k1[j]) <= 30)&& ((k3[j]-k5[j]) > 120)) {mem =13;}
          if (((k3[j]-k1[j]) > 30)&&((k3[j]-k1[j]) <= 60)&&((k3[j]-k5[j]) > 15)&&((k3[j]-k5[j]) <= 30)){mem =14;}
          if (((k3[j]-k1[j]) > 30)&&((k3[j]-k1[j]) <= 60)&&((k3[j]-k5[j]) > 30)&&((k3[j]-k5[j]) <= 60)){mem =15;}
          if (((k3[j]-k1[j]) > 30)&&((k3[j]-k1[j]) <= 60)&&((k3[j]-k5[j]) > 60)&&((k3[j]-k5[j]) <= 120)){mem =16;}
          if (((k3[j]-k1[j]) > 30)&&((k3[j]-k1[j]) <= 60)&& ((k3[j]-k5[j]) > 120)) {mem =17;}
          if (((k3[j]-k1[j]) > 60)&&((k3[j]-k1[j]) <= 120)&&((k3[j]-k5[j]) > 15)&&((k3[j]-k5[j]) <= 30)){mem =18;}
          if (((k3[j]-k1[j]) > 60)&&((k3[j]-k1[j]) <= 120)&&((k3[j]-k5[j]) > 30)&&((k3[j]-k5[j]) <= 60)){mem =19;}
          if (((k3[j]-k1[j]) > 60)&&((k3[j]-k1[j]) <= 120)&&((k3[j]-k5[j]) > 60)&&((k3[j]-k5[j]) <= 120)){mem =20;}
          if (((k3[j]-k1[j]) > 60)&&((k3[j]-k1[j]) <= 120)&& ((k3[j]-k5[j]) > 120)) {mem =21;}
          
          

          
switch(mem) {

  case 1:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+3); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;}
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }
 

    break;

  case 2:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-2); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-2); repet1 > (k3[j]-4); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k3[j]-4); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }
 

    break;
  case 3:


	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break;
  case 4:
	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;  }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }
    break;
  case 5:
	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }
    break;
    
   case 6:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+3); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;}
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-2); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-2); repet1 > (k3[j]-4); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k3[j]-4); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break;   
    
       case 7:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+3); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;}
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 8:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+3); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;}
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 9:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+3); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;}
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 10:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 11:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 12:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 13:
	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 14:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-2); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-2); repet1 > (k3[j]-4); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k3[j]-4); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 15:
	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 16:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 17:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 18:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;  }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-2); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-2); repet1 > (k3[j]-4); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k3[j]-4); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 19:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;  }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; }
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 20:
	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;  }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k3[j]-5); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--;repet1--; }
  	    for (repet1 = (k3[j]-5); repet1 > (k5[j]+4); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+4); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--; repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
           case 21:

	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k1[j]+4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++; }
  	    for (repet1 = (k1[j]+4); repet1 < (k3[j]-6); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;repet1++;repet1++; repet1++;repet1++;}
  	    for (repet1 = (k3[j]-6); repet1 < (k3[j]-4); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;repet1++;  }
  	    for (repet1 = (k3[j]-4); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1]; }
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;repet1--;repet1--;repet1--;repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 3; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }

    break; 
    
  default:
	    for (repet1 = (k1[j]); repet1 < (k1[j]+2); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k1[j]+2); repet1 < (k3[j]-2); repet1++) { f<<tabn[repet1];repet1++;repet1++; repet1++;}
  	    for (repet1 = (k3[j]-2); repet1 < (k3[j]); repet1++) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }  
  	    repet1 = k3[j]; for (repet = 0; repet < (k4[j]+k7); repet++){ f<<tabn[repet1]; }
//  	    // fin monte 
	    
	    
	    for (repet1 = (k3[j]-1); repet1 > (k3[j]-3); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } }
  	    for (repet1 = (k3[j]-3); repet1 > (k5[j]+2); repet1--) { f<<tabn[repet1];repet1--;repet1--;repet1--; repet1--;}
  	    for (repet1 = (k5[j]+2); repet1 > (k5[j]); repet1--) { for (repet = 0; repet < 2; repet++) { f<<tabn[repet1]; } } 
  	    repet1 = k5[j]; for (repet = 0; repet < (k6[j]+k7); repet++){ f<<tabn[repet1]; }
// fin descend 
} //fin switch

 } //fin boucle du for
 /**********************************************************/
 	//tab de zone blanche
std::vector<std::vector<uchar>> tab3 = {
	{0x0080}};
 // 1 tab de zone blanche de fin
	repet = 0;
	for (repet = 0; repet < 180; repet++) {
	
		for(std::vector<uchar> v : tab3) {
		for(uchar c : v) {
			f << c;
		}
	}
	}
	
	//2

}




int main (void)
{

bascule1(127,1,137,3,126,4,136,3,125,4,135,3,124,4,134,3,126,4,141,3,124,4,139,3,122,4,137,3,120,4,135,3,125,4,145,3,122,4,142,3,119,4,139,3,116,4,136,3,124,4,149,3,120,4,145,3,116,4,141,3,112,4,137,3,123,4,153,3,118,4,148,3,113,4,143,3,108,4,138,3,122,4,157,3,116,4,151,3,110,4,145,3,104,4,139,3,121,4,161,3,114,4,154,3,107,4,147,3,100,4,140,3,120,4,165,3,112,4,157,3,104,4,149,3,96,4,141,3,119,4,169,3,110,4,160,3,101,4,151,3,92,4,142,3,118,4,173,3,108,4,163,3,98,4,153,3,119,4,141,3,110,4,169,3,101,4,160,3,96,4,151,3,111,4,140,3,103,4,165,3,99,4,157,3,123,4,149,3,104,4,139,3,101,4,161,3,126,4,154,3,115,4,147,3,102,4,138,3,127,4,157,3,118,4,151,3,108,4,145,3,127,4,137,3,120,4,153,3,111,4,148,3,106,4,143,3,121,4,136,3,113,4,149,3,109,4,145,3,128,4,141,3,114,4,135,3,111,4,145,3,131,4,142,3,125,4,139,3,112,4,134,3,129,4,141,3,128,4,139,3,118,4,137,3,88,4,133,3,128,4,145,3,126,4,142,3,115,4,139,3,84,4,134,3,127,4,149,3,124,4,145,3,112,4,141,3,80,4,135,3,126,4,153,3,122,4,148,3,109,4,143,3,76,4,136,3,125,4,157,3,120,4,151,3,106,4,145,3,72,4,137,3,124,4,161,3,118,4,154,3,103,4,147,3,68,4,138,3,123,4,165,3,116,4,157,3,100,4,149,3,64,4,139,3,122,4,169,3,114,4,160,3,97,4,151,3,60,4,140,3,121,4,173,3,112,4,163,3,94,4,153,3,56,4,141,3,120,4,177,3,95,4,162,3,58,4,149,3,123,4,138,3,116,4,175,3,59,4,161,3,125,4,145,3,119,4,135,3,99,4,173,3,126,4,160,3,121,4,141,3,102,4,132,3,63,4,171,3,122,4,159,3,104,4,137,3,66,4,129,3,82,4,169,3,105,4,158,3,68,4,133,3,79,4,126,3,118,4,167,3,69,4,157,3,81,4,129,3,85,4,123,3,109,4,165,3,82,4,156,3,87,4,125,3,106,4,120,3,73,4,163,3,88,4,155,3,104,4,121,3,76,4,117,3,86,4,161,3,105,4,154,3,78,4,128,3,118,4,130,3);

	
	return 0;
}