$E=$_POST["e"]; $A=$_POST["a"];
if($A=="") $A=0;
if($E=="") $E=0; ?>
$N[1]="actinio" ;$S[1]="Ac" ;
$N[2]="aluminio";$S[2]="Al" ;
$N[3]= "americio" ; $S[3]="Am" ;
$N[4]="Antimonio" ; $S[4]="Sb" ;
$N[5]="argón" ; $S[5]="Ar" ;
$N[6]="arsénico" ; $S[6]="As" ;
$N[7]="astato" ; $S[7]="At" ;
$N[8]="azufre" ; $S[8]="S" ;
$N[9]="bario" ; $S[9]="Ba" ;
$N[10]="berkelio" ; $S[10]="Bk" ;
$N[11]="berilio" ; $S[11]="Be" ;
$N[12]="bismuto" ; $S[12]="Bi" ;
$N[13]="bohrio" ; $S[13]="Bh" ;
$N[14]="boro" ; $S[14]="B" ;
$N[15]="bromo" ; $S[15]="Br" ;
$N[16]="cadmio" ; $S[16]="Cd" ;
$N[17]="calcio" ; $S[17]="Ca" ;
$N[18]="californio" ; $S[18]="Cf" ;
$N[19]="carbono" ; $S[19]="C" ;
$N[20]="cerio" ; $S[20]="Ce" ;
$N[21]="cesio" ; $S[21]="Cs" ;
$N[22]="cloro" ; $S[22]="Cl" ;
$N[23]="cobalto" ;$S[23]="Co" ;
$N[24]="cobre" ; $S[24]="Cu" ;
$N[31]="copernicio" ;$S[31]="Cn";
$N[25]="cromo";
$S[25]="Cr";
$N[26]="curio";
$S[26]="Cm";
$N[27]="darmstadio" ; $S[27]="Ds" ;
$N[28]="disprosio" ; $S[28]="Dy" ;
$N[29]="dubnio" ; $S[29]="Db" ;
$N[30]="einstenio" ; $S[30]="Es" ;
;
$N[32]="erbio" ; $S[32]="Er" ;
$N[33]="cinc" ; $S[33]="Zn" ;
$N[34]="escandio" ; $S[34]="Sc" ;
$N[35]="estaño" ; $S[35]="Sn" ;
$N[36]="estroncio" ; $S[36]="Sr" ;
$N[37]="europio" ; $S[37]="Eu" ;
$N[38]="fermio" ; $S[38]="Fm" ;
$N[39]="flúor" ; $S[39]="F" ;
$N[40]="fósforo" ; $S[40]="P" ;
$N[41]="francio" ; $S[41]="F " ;
$N[42]="gadolinio" ; $S[42]="Gd" ;
$N[43]="galio" ; $S[43]="Ga" ;
$N[44]="germanio" ; $S[44]="Ge" ;
$N[45]="hafnio" ; $S[45]="Hf" ;
$N[46]="hassio" ; $S[46]="Hs" ;
$N[47]="helio" ; $S[47]="He" ;
$N[48]="hidrógeno" ;$S[48]="H";
$N[49]="hierro" ; $S[49]="Fe" ;
$N[50]="holmio" ; $S[50]="Ho" ;
$N[51]="indio" ; $S[51]="In" ;
$N[52]="iridio" ; $S[52]="Ir" ;
$N[53]="iterbio" ;$S[53]="Yb";
$N[54]="itrio" ; $S[54]="Y";
$N[55]="kryptón" ;$S[55]="Kr" ;
$N[56]="lantano" ;$S[56]="La" ;
$N[57]="lawrencio" ;$S[57]="Lr" ;
$N[58]="litio" ; $S[58]="Li" ;
$N[59]="lutecio" ;$S[59]="Lu";
$N[60]="zirconio" ;$S[60]="Zr" ;
$N[61]="magnesio" ; $S[61]="Mg" ;
$N[62]="manganeso" ; $S[62]="Mn" ;
$N[63]="meitnerio" ; $S[63]="Mt" ;
$N[64]="mendelevio" ; $S[64]="Md" ;
$N[65]="mercurio" ; $S[65]="Hg" ;
$N[66]="molibdeno" ; $S[66]="Mo" ;
$N[67]="roentgenio" ; $S[67]="Rg" ;
$N[68]="neodimio" ; $S[68]="Nd" ;
$N[69]="neón" ; $S[69]="Ne" ;
$N[70]="neptunio" ; $S[70]="Np" ;
$N[71]="niobio" ; $S[71]="Nb" ;
$N[72]="níquel" ; $S[72]="Ni" ;
$N[73]="nitrógeno" ; $S[73]="N" ;
$N[74]="nobelio" ; $S[74]="No" ;
$N[75]="yodo" ; $S[75]="I" ;
$N[76]="oro" ; $S[76]="Au" ;
$N[77]="osmio" ; $S[77]="Os" ;
$N[78]="oxígeno" ; $S[78]="O" ;
$N[79]="paladio" ; $S[79]="Pd" ;
$N[80]="plata " ; $S[80]="Ag" ;
$N[81]="platino" ; $S[81]="Pt" ;
$N[82]="plomo" ; $S[82]="Pb" ;
$N[83]="Xenón" ; $S[83]="Xe" ;
$N[84]="plutonio" ; $S[84]="Pu" ;
$N[85]="polonio" ; $S[85]="Po" ;
$N[86]="potasio" ; $S[86]="K" ;
$N[87]="praseodimio" ; $S[87]="Pr" ;
$N[88]="prometio" ; $S[88]="Pm" ;
$N[89]="protactinio" ; $S[89]="Pa" ;
$N[90]="radio" ; $S[90]="Ra" ;
$N[91]="radón" ; $S[91]="Rn" ;
$N[92]="renio" ; $S[92]="Re" ;
$N[93]="rodio" ; $S[93]="Rh" ;
$N[94]="rubidio" ; $S[94]="Rb" ;
$N[95]="rutenio" ; $S[95]="Ru" ;
$N[96]="rutherfordio" ; $S[96]="Rf" ;
$N[97]="samario" ; $S[97]="Sm" ;
$N[98]="seaborgio" ; $S[98]="Sg" ;
$N[99]="selenio" ; $S[99]="Se" ;
$N[100]="silicio" ; $S[100]="Si" ;
$N[101]="sodio" ; $S[101]="Na" ;
$N[102]="talio" ; $S[102]="Tl" ;
$N[103]="tántalo" ; $S[103]="Ta" ;
$N[104]="tecnecio" ; $S[104]="Tc" ;
$N[105]="teluro" ; $S[105]="Te" ;
$N[106]="terbio" ; $S[106]="Tb" ;
$N[107]="titanio" ; $S[107]="Ti" ;
$N[108]="torio" ; $S[108]="Th" ;
$N[109]="tulio" ; $S[109]="Tm" ;
$N[110]="wolframio" ; $S[110]="W" ;
$N[111]="uranio" ; $S[111]="U" ;
$N[112]="vanadio" ; $S[112]="V" ;
$repetir=$_POST ["repetir"]; $stop=$_POST ["stop"];
$carga=$_POST ["carga"];
if($repetir=="" and $carga==1){ exit();} ; if($stop=="si"){print"¡Esto es muy duro!";exit();}
$C[0]= $_POST["C0"];
$C[1]= $_POST["C1"];
$C[2]= $_POST["C2"];
$C[3]= $_POST["C3"];
$C[4]= $_POST["C4"];
$C[5]= $_POST["C5"];
$C[6]= $_POST["C6"];
$C[7]= $_POST["C7"];
$C[8]= $_POST["C8"];
$C[9]= $_POST["C9"];
$C[10]= $_POST["C10"];
$C[11]= $_POST["C11"];
$C[12]= $_POST["C12"];
$C[13]= $_POST["C13"];
$C[14]= $_POST["C14"];
$C[15]= $_POST["C15"];
$C[16]= $_POST["C16"];
$C[17]= $_POST["C17"];
$C[18]= $_POST["C18"];
$C[19]= $_POST["C19"];
$C[20]= $_POST["C20"];
$C[21]= $_POST["C21"];
$C[22]= $_POST["C22"];
$C[23]= $_POST["C23"];
$C[24]= $_POST["C24"];
$C[25]= $_POST["C25"];
$C[26]= $_POST["C26"];
$C[27]= $_POST["C27"];
$C[28]= $_POST["C28"];
$C[29]= $_POST["C29"];
$C[30]= $_POST["C30"];
$C[31]= $_POST["C31"];
$C[32]= $_POST["C32"];
$C[33]= $_POST["C33"];
$C[34]= $_POST["C34"];
$C[35]= $_POST["C35"];
$C[36]= $_POST["C36"];
$C[37]= $_POST["C37"];
$C[38]= $_POST["C38"];
$C[39]= $_POST["C39"];
$C[40]= $_POST["C40"];
$C[41] = $_POST["C41"];
$C[42]= $_POST["C42"];
$C[43] = $_POST["C43"];
$C[44]= $_POST["C44"];
$C[45]= $_POST["C45"];
$C[46]= $_POST["C46"];
$C[47]= $_POST["C47"];
$C[48] = $_POST["C48"];
$C[49]= $_POST["C49"];
$C[50] = $_POST["C50"];
$C[51]= $_POST["C51"];
$C[52]= $_POST["C52"];
$C[53]= $_POST["C53"];
$C[54]= $_POST["C54"];
$C[55]= $_POST["C55"];
$C[56]= $_POST["C56"];
$C[57]= $_POST["C57"];
$C[58]= $_POST["C58"];
$C[59]= $_POST["C59"];
$C[60]= $_POST["C60"];
$C[61]= $_POST["C61"];
$C[62]= $_POST["C62"];
$C[63]= $_POST["C63"];
$C[64]= $_POST["C64"];
$C[65]= $_POST["C65"];
$C[66]= $_POST["C66"];
$C[67]= $_POST["C67"];
$C[68]= $_POST["C68"];
$C[69]= $_POST["C69"];
$C[70]= $_POST["C70"];
$C[71]= $_POST["C71"];
$C[72]= $_POST["C72"];
$C[73]= $_POST["C73"];
$C[74]= $_POST["C74"];
$C[75]= $_POST["C75"];
$C[76]= $_POST["C76"];
$C[77] = $_POST["C77"];
$C[78]= $_POST["C78"];
$C[79]= $_POST["C79"];
$C[80]= $_POST["C80"];
$C[81]= $_POST["C81"];
$C[82]= $_POST["C82"];
$C[83]= $_POST["C83"];
$C[84]= $_POST["C84"];
$C[85]= $_POST["C85"];
$C[86]= $_POST["C86"];
$C[87]= $_POST["C87"];
$C[88]= $_POST["C88"];
$C[89]= $_POST["C89"];
$C[90]= $_POST["C90"];
$C[91]= $_POST["C91"];
$C[92]= $_POST["C92"];
$C[93]= $_POST["C93"];
$C[94]= $_POST["C94"];
$C[95]= $_POST["C95"];
$C[96]= $_POST["C96"];
$C[97]= $_POST["C97"];
$C[98]= $_POST["C98"];
$C[99]= $_POST["C99"];
$C[100] = $_POST["C100"];
$C[101]= $_POST["C101"];
$C[102]= $_POST["C102"];
$C[103]= $_POST["C103"];
$C[104] = $_POST["C104"];
$C[105]= $_POST["C105"];
$C[106]= $_POST["C106"];
$C[107] = $_POST["C107"];
$C[108] = $_POST["C108"];
$C[109]= $_POST["C109"];
$C[110] = $_POST["C110"];
$C[111]= $_POST["C111"];
$C[112] = $_POST["C112"];
$X=$_POST["X"];
$E1=$_POST["E1"]; $ok=$_POST["ok"];
if ($ok=="ok"){
$E2=$S[$X];
if ($E1==$E2) { print"