$op=$_POST["op"]; $P1=$_POST["P1"]; $P2=$_POST["P2"]; $P3=$_POST["P3"]; $P4=$_POST["P4"]; $P5=$_POST["P5"]; $P6=$_POST["P6"]; $P7=$_POST["P7"]; $P8=$_POST["P8"]; $P9=$_POST["P9"]; $P10=$_POST["P10"]; $P10=$_POST["P10"]; $P11=$_POST["P11"]; $P13=$_POST["P13"]; $P12=$_POST["P12"]; $P14=$_POST["P14"]; $P15=$_POST["P15"]; $P16=$_POST["P16"]; $P17=$_POST["P17"]; $P18=$_POST["P18"]; $P19=$_POST["P19"]; $P20=$_POST["P20"]; $P20=$_POST["P20"]; $P20=$_POST["P20"]; $P20=$_POST["P20"]; $P21=$_POST["P21"]; $P22=$_POST["P22"]; $P23=$_POST["P23"]; $P24=$_POST["P24"]; $P25=$_POST["P25"]; $P26=$_POST["P26"]; $P27=$_POST["P27"]; $P28=$_POST["P28"]; $P29=$_POST["P29"]; $P30=$_POST["P30"]; $P31=$_POST["P31"]; $P20=$_POST["P20"]; $P32=$_POST["P32"]; $P33=$_POST["P33"]; $P34=$_POST["P34"]; $P35=$_POST["P35"]; $P36=$_POST["P36"]; $P37=$_POST["P37"]; $P38=$_POST["P38"]; $P39=$_POST["P39"]; $P40=$_POST["P40"]; $P41=$_POST["P41"]; $P20=$_POST["P20"]; $P42=$_POST["P42"]; $P43=$_POST["P43"]; $P44=$_POST["P44"]; $P45=$_POST["P45"]; $P46=$_POST["P46"]; $P47=$_POST["P47"]; $P48=$_POST["P48"]; $P49=$_POST["P49"]; $P50=$_POST["P50"]; $P51=$_POST["P51"]; $P52=$_POST["P52"]; $P53=$_POST["P53"]; $P54=$_POST["P54"]; $P55=$_POST["P55"]; $P56=$_POST["P56"]; $P57=$_POST["P57"]; $P58=$_POST["P58"]; $P59=$_POST["P59"]; $P60=$_POST["P60"]; $P61=$_POST["P61"]; $P62=$_POST["P62"]; $P63=$_POST["P63"]; $P64=$_POST["P64"]; $P65=$_POST["P65"]; $P66=$_POST["P66"]; $P67=$_POST["P67"]; $P68=$_POST["P68"]; $P69=$_POST["P69"]; $P70=$_POST["P70"]; $P71=$_POST["P71"]; $P72=$_POST["P72"]; $P73=$_POST["P73"]; $P74=$_POST["P74"]; $P75=$_POST["P75"]; $P76=$_POST["P76"]; $P77=$_POST["P77"]; $P78=$_POST["P78"]; $P79=$_POST["P79"]; $P80=$_POST["P80"]; $P81=$_POST["P81"]; $P82=$_POST["P82"]; $P83=$_POST["P83"]; $P84=$_POST["P84"]; $P85=$_POST["P85"]; $P86=$_POST["P86"]; $P87=$_POST["P87"]; $P88=$_POST["P88"]; $P89=$_POST["P89"]; $P90=$_POST["P90"]; $P91=$_POST["P91"]; $P92=$_POST["P92"]; $P93=$_POST["P93"]; $P94=$_POST["P94"]; $P95=$_POST["P95"]; $P96=$_POST["P96"]; $P97=$_POST["P97"]; $P98=$_POST["P98"]; $P99=$_POST["P99"]; $P100=$_POST["P100"]; $P101=$_POST["P101"]; $P102=$_POST["P102"]; $P103=$_POST["P103"]; $P104=$_POST["P104"]; $P105=$_POST["P105"]; $P106=$_POST["P106"]; $P107=$_POST["P107"]; $P108=$_POST["P108"]; $P109=$_POST["P109"]; $P110=$_POST["P110"]; $P111=$_POST["P111"]; $P112=$_POST["P112"]; $P113=$_POST["P113"]; $P114=$_POST["P114"]; $P115=$_POST["P115"]; $P116=$_POST["P116"]; $P117=$_POST["P117"]; $R1="H"; $R2="He"; $R3="Li"; $R4="Be"; $R5="B"; $R6="C" ; $R7="N" ; $R8="O"; $R9="F" ; $R10="Ne" ; $R11="Na" ; $R12="Mg" ; $R13="Al" ; $R14="Si" ; $R15="P" ; $R16="S"; $R17 ="Cl" ; $R18="Ar" ; $R19="K" ; $R20="Ca" ; $R21="Sc" ; $R22="Ti" ; $R23="V" ; $R24="Cr" ; $R25="Mn" ; $R26="Fe" ; $R27="Co" ; $R28="Ni" ; $R29="Cu" ; $R30="Zn" ; $R30="Zn" ; $R31="Ga" ; $R32="Ge" ; $R33="As" ; $R34="Se" ; $R35="Br" ; $R36="Kr" ; $R37="Rb" ; $R38="Sr" ; $R39="Y" ; $R40="Zr" ; $R41="Nb" ; $R42="Mo" ; $R43="Tc" ; $R44="Ru" ; $R45="Rh" ; $R46="Pd" ; $R47="Ag" ; $R48="Cd" ; $R49="In" ; $R50="Sn" ; $R51="Sb" ; $R52="Te" ; $R53="I" ; $R54="Xe" ; $R55="Cs" ; $R56="Ba" ; $R57="La" ; $R58="Ce" ; $R59="Pr" ; $R60="Nd" ; $R61="Pm" ; $R62="Sm" ; $R63="Eu" ; $R64="Gd" ; $R65="Tb" ; $R66="Dy" ; $R67="Ho" ; $R68="Er" ; $R69="Tm" ; $R70="Yb" ; $R71="Lu" ; $R72="Hf" ; $R73="Ta" ; $R74="W" ; $R75="Re" ; $R76="Os" ; $R77="Ir" ; $R78="Pt" ; $R79="Au" ; $R80="Hg" ; $R81="Tl" ; $R82="Pb" ; $R83="Bi" ; $R84="Po" ; $R85="At" ; $R86="Rn" ; $R87="Fr" ; $R88="Ra" ; $R89="Ac" ; $R90="Th" ; $R91="Pa" ; $R92="U" ; $R93="Np" ; $R94="Pu" ; $R95="Am" ; $R96="Cm" ; $R97="Bk" ; $R98="Cf" ; $R99="Es" ; $R100="Fm" ; $R101="Md" ; $R102="No" ; $R103="Lr" ; $R104="Rf" ; $R105="Db" ; $R106="Sg" ; $R107="Bh" ; $R108="Hs" ; $R109="Mt" ; $R110="Ds" ; $R111="Rg" ; $R112="Cp" ; ?>